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iiMENUDO CAMBIO! 


Tráenos tu 


SPECTRUM 


Renuévate con 
INVESTRONICA. 


Ahora INVESTRONICA te ca 

la oportunidad de hacerte con el 
microordenador más moderno 
del mercado: EL SPECTRUM 
PLUS 

Sólo tendrás que entregamos tu 
ZX SPECTRUM.. 

„lo demás será visto y no visto, 
el Spectrum Plus ya es tuyo. 
Tener un ordenador Sinclair es 
la garantía de estar siempre a 
la última. 


*) 18000 pis si es de 16 K 


y llévate un 


SPECTRUM PLUS 


Apúntate a lo más 
nuevo. 


El Spectrum Plus es lo más 
nuevo del mercado. Si tu 
Spectrum es estupendo; el Plus 
es fabuloso. Podrás disfrutar. de 
un teclado profesional; 

17 teclas más que el Spectrum, 
es decir 17 ventajas más... y 
por supuesto lo podrás utilizar 
con todos los programas y 
periféricos que ya tienes, puesto 
que el SPECTRUM PLUS es 
totalmente compatible con todo 
el software y accesorios del 
spectrum. Además 
INVESTRONICA, al realizar el 
cambio, te da de nuevo 

6 meses de garanfía, 

una nueva cassette de 
demostración y un libro de 
instrucciones a todo color. 


No fe lo pienses.. cómbiałe a lo 
ültimo, tienes las de ganar. 


Tenerlo, muy fácil 


Manda tu ZX Spectrum 

(sin cables, ni fuente de 
alimentación) a tu Servicio 
Técnico Oficial 

(HISSA) más cercano, bien 
personalmente o por agencia de 
transportes (los gastos son por 
cuenta de INVESTRONICA) y en 
48 horas ya podrás disfrutar de 
tu nuevo Spectrum Plus. 

Sólo tienes que abonar (contra 
reembolso) 12.000 Pts. (7) 


investronica 


(ДАША. 
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nada con 


Si deseas colaborar en TODOSPEC- 
TRUM remite tus artículos o progra- 
mas a Bravo Murillo 377, 5. A. 28020. 
Madrid. Los programas deberán estar 
grabados en cassette y los artículos 
mecanografiados, 

А efectos de remuneración, se anali- 
za cada colaboración aisladamente, es- 
tudiando su complejidad y calidad. 


DISENO: Ricardo Segura 
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AÑO I e NUMERO 


COMERCIAI 
programa d 


DESCUBRI 
NUEVO LE 
w ADRI 
1? 


al interface 


QL MAGAZINE. EASEL 
MEJOR DE ON y el primer listado 
para producir müsica en el QL. 
DESPLAZAMIENTO PIXEL A 
PIXEL. Concluimos la aportación de 
nuestros lectores en este interesante 
tema. 

JUEGOS: PITUFOS, laberinto a todo 
color para recoger las pitufofresas, y 


ВИ. Ur 


PRO 


difere 


HANA Ваве 


Parece que la ultima m 


al menos posibilitar do md. 
kad AS inteligibles. Con ello comenzamos este m 
más 


desta- 

j iversos temas, entre los que 

ayo, junto a diversos ntre l E 

mern de ЕН del Wafadrive. un periférico que ра 

Amos Gi ааа” 

tener una seria "crisis 0 dentidad”. 
Y para los amantes del 


amos con la "QL 

zine” en las páginas centrales. Un mime Wi 
8 БЯ ara quienes quieren ir conociendo e > 
ESET Sinclair; pero suficientes, para see. m 
S seed ni desean conocer otro que no sea el Spe > 
Hasta el próximo numero. 


Spectrum 


Algunos programas aparecidos en el mercado anuncian que son capaces de 
hacer hablar al Spectrum. Realmente se trata de un hecho curioso y divertido. 

A pesar de su aparente dificultad, es algo que pueden realizar en sus casas todos 
los usuarios de un Spectrum 48 K. 


o se trata de sintetizar soni- 
N dos, ni de construir gran- 

diosos artilugios que, en- 
chufados al Spectrum, sean 
capaces de recitar la lista de 
reyes godos. Nuestra intención es 
almacenar en memoria un mensaje 
previamente grabado, para que el 
ordenador lo reproduzca poste- 
riormente por el altavoz interno. 
Como más tarde explicaremos, el 
método no se caracteriza por una 
limpieza cristalina. En efecto, la 
sefial viene acompafiada por un 
fuerte ruido de fondo — hablando 
con propiedad diríamos que se ob- 
tiene un fuerte ruido de fondo al 
que se le suma la señal—. Sin em- 
bargo, el resultado es perfectamen- 
te inteligible, con una calidad se- 
mejante o superior a la de los pro- 
gramas comerciales que incorpo- 
ran este tipo de efectos. 


Principio de funcionamiento 


Para grabar los sonidos tendre- 
mos que conectar el magnetófono, 
con un mensaje previamente gra- 
bado, a la entrada EAR, de forma 
semejante a cuando cargamos un 
programa. 

La sefial que entra en el ordena- 
dor es filtrada suavemente antes de 
aplicarse a un circuito digitaliza- 
dor. Este proceso consiste en dar a 
la salida un nivel lógico 1 si la se- 
fial sobrepasa una cierta tensión o 
un cero si no se alcanza este valor. 
Para aclarar conceptos, observe 
cuidadosamente la figura 1. El “ni- 
vel de disparo” (que es el nombre 
que recibe) es constante e inaltera- 
ble. Por ello es fácil de deducir que 
si variamos la amplitud de la en- 
trada, la señal digitalizada asocia- 


da variará de una forma imprede- 
cible, siendo éste un resultado no 
deseable. De aqui, se deduce inme- 
diatamente que el volumen con el 
que se reproduce la señal a grabar 
es algo crítico, y deberá ajustarse 
cuidadosamente. 

Ahora estamos en condiciones 
de manejar esta señal, pues se trata 
de una señal digital, esto es, sólo 
distingue dos niveles de tensión. Se 
podrá, pues, almacenar en la me- 
moria del ordenador. Sólo nos 
hace falta saber de qué manera. 

Posponemos esta discusión para 
ocuparnos en primer lugar de la 
recuperación de la senal. 


Recuperación de la señal 


Teníamos una señal analógica 
“А”, y procesándola hemos obte- 
nido otra digital “О”, que pode- 
mos almacenar de una manera 
(por ahora) totalmente mágica. Sin 
embargo, es claro que todo este 
proceso vale de poco si no somos 
capaces de recomiponer la señal 
original o al menos una aproxima- 
ción. 

El sistema comúnmente em- 
pleado en la grabación o el trata- 
miento digital de señales analógi- 
cas requiere en primer lugar un 


muestreo periódico de la señal de 
entrada. Esto es necesario, ya que 
la señal digital tiene siempre una 
distribución discreta en la ampli- 
tud y en el tiempo. 

La frecuencia de muestreo debe 
ser al menos dos veces más alta 
que el ancho de banda de la señal. 
Sólo con estas condiciones será po- 
sible recuperar la señal inicial 
(Teorema de Nyquist). Sobre las 
muestras se realizará una conver- 
sión analógico-digital, esto es, me- 
diremos la tensión resultante con 
un número finito de cifras, lo que 
supone necesariamente un error. 
Para audio de alta calidad se usan 
16 bits en la conversión (se miden 
2716 = 65536 niveles diferentes). 
Cuando se pretende conseguir una 
calidad aceptable, el usar menos 
de 8 bits es algo que ni se plantea. 
A la vista de esto, es lógico supo- 
ner que vamos a conseguir una ca- 
lidad excepcional con un conver- 
sor de iun bit! Más de un sabio es- 
tudioso del tratamiento digital se 
sorprendería a la vista de los resul- 
tados obtenidos. Sin duda, califica- 
ría el procedimiento de locura im- 
posible; sin embargo, FUNCIO- 
NA. 


Para reproducir la señal debe- 
mos dar salida a las muestras to- 
madas (que han sido almacenadas 
y tal vez procesadas de forma nu- 
mérica) en el mismo orden en que 
han sido recogidas. Un filtrado 
paso bajo devuelve una sefial tanto 
más parecida a la original, cuanto 
mayor sea el número de bits em- 
pleado en la conversión. En nues- 
tro caso no vamos a hacer un filtra- 
do serio, pero si lo hiciéramos ob- 
tendríamos una mejor relación se- 
fial-ruido. Al final obtenemos una 
señal bastante distorsionada a la 


que hay que sumar un fuerte ruido 
("ruido de cuantización”). El ma- 
ravilloso cerebro humano se en- 
carga del resto. 


Almacenamiento del sonido 


Vamos a volver al problema que 
teníamos pendiente. El método 
más intuitivo de almacenar la se- 
fial que vamos muestreando sería 
llenar la memoria de forma *li- 
neal" con ceros y unos segün sea el 
nivel lógico detectado a la entrada. 
Ver figura 2. El procedimiento es 
válido si 1 Ón entre la fre- 
cuencia de hal y la de mues- 
treo es como se indica en la figura. 
Pero si aumentáramos la frecuen- 
cia de muestreo en cien o mil veces 
(o redujéramos la de la señal otras 
lantas), inmediatamente nos daría- 
mos cuenta de que: la densidad de 
información seria extremadamen- 
te baja. En efecto, supongamos que 
la frecuencia de la 1 de la figu- 
ra fuera 100 veces más baja. Esto 
significa que si en el primer inter- 
valo de 178 contábamos tres mues- 


Ж 


tras, ahora lo haremos 300. En el 
programa que mostramos, la fre- 
cuencia de muestreo es de unos 30 
KHz. Usando 32 K de memoria 
sólo podríamos almacenar 8 se- 
gundos de “charla” 

La solución es obvia: reduzca- 
mos la frecuencia de muestreo, con 
lo que disminuiremos el ritmo de 
información requerido (número de 
bits por unidad de tiempo). 

Sin embargo, lo que aparece 
como ingeniosa sugerencia presen- 
ta dos graves problemas: 

— Si disminuimos excesiva- 
mente la frecuencia de muestreo, 
hasta cifras por debajo de la fre- 
cuencia de Nyquist (el doble del 
ancho de banda), nos encontramos 
con un fenómeno llamado alia- 
sing. Este curioso efecto produce 
un plegamiento del espectro y ge- 
nera un tipo de distorsión muy de- 
sagradable. Para comprender su 
funcionamiento, les remitimos a la 
figura 3. En el gráfico a vemos una 
senal que queremos muestrear. Se 
observa que parte de la señal tiene 
una frecuencia superior a la de 
muestreo. La figura b indica la se- 


@ 
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ñal que ha sido capaz de recoger el 
circuito muestreador. Podríamos 
decir que las componentes de alta 
frecuencia se le han “escapado”, Y 
lo que es peor, la sección del es- 
pectro de las frecuencias más bajas 
han pasado a engrosar las filas de 
los tonos bajos. 

Si grabáramos un sonido cuya 
altura sube constantemente (como 
el sonido que hace un proyectil al 
caer) notaríamos cómo, a partir de 
un instante, la nota que se supone 
que debería seguir subiendo, se ha 
convertido en un tono grave. Esta 
nota alta tiene un "alias" (de aquí 
el nombre de aliasing). Resulta 
evidente que este efecto debe ser 
corrégido. La forma evidente es 
realizar un filtrado previo, elimi- 
nando de esta manera las frecuen- 
cias altas que pudieran dar proble- 
mas. Y de paso disminuiríamos la 
densidad de información requeri- 
da. sin embargo, no hemos olvida- 
do la promesa inicial de no usar 
cachivaches externos. 

— Otro efecto pernicioso es que 
al bajar la frecuencia de muestreo 
de los 15-20 KHz, esta señal se 


| 


hace audible. De nuevo podríamos 
usar un filtro, también paso bajo, 
pero... Como usaremos el cassette 
para grabar en el Spectrum, es bas- 
tante razonable suponer que el an- 
cho de banda es de unos 15 KHz. 
Por tanto usaremos una frecuencia 
de muestreo de aproximadamente 
30 KHz. Ya hemos visto las conse- 
cuencias que tendría el bajarla. 
Hacerla más alta (aunque se pudie- 
ra), sólo llevaría a aumentar la me- 
moria necesaria para grabar un 
cierto mensaje. 


El método que hemos empleado 
consiste en contar el nümero de 
muestras que se toman entre dos 
transiciones de nivel. Así, si tene- 
mos que la señal se ha mantenido 
en 1 durante 50 muestras y luego a 
0 durante 30, tomaremos nota de 
estos datos, y la reproducción con- 
sistirá precisamente en ponera I la 
salida durante 50 períodos y des- 
pués a 0 durante 30. Se observa 


que, además de los tiempos, será 
necesario apuntar el estado lógico 
de la entrada. Una inversión lógica 
de los niveles (inversión de fase), 
no tendrá ninguna importancia 
siempre y cuando ésta sea constan- 
te. 

Vamos a hacer algunos nümeros 
par calcular ciertos aspectos de in- 
terés. 

Con la frecuencia de muestreo 
escogida de 30 KHz, una señal | 
muy asimétrica de 100 Hz necesi- 
tará 300 períodos de muestreo en- 
tre dos transiciones. Teniendo en 
cuenta que podemos encontrar fá- 
cilmente señales de frecuencia más 
baja, vemos que con un byte no te- 
nemos bastante. Además está el 
problema de anotar el nivel de en- 
trada. 

Para permitir una gran flexibili- 
dad, vamos a usar la siguiente con- 
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EQU $ 
Aqui viene el “discurso” 
hasta el final de La me- 
moris. A 
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PILOTANDO UN 
>, TENDRA QUE DIRIGIR 
DE RESCATE PARA 


DESTRUIR 
ALIENIGENAS Y SI 
ES LA UNICA FORMA D 


MUESTRA LOS 
| MISTERIOS DI 
RAPIDO CAMBIO DE COLOR. 
APRENDA A 
PROGRAMAR 
IBUJOS ANIMADOS. 
ON A MAS A 
LAS POSIBILIDADES 
U ORDENADOR. 


CHOPPER 
TWIDDLER 
SHOOT 
HANGOUT 
TOMATOES 
CARTOON 
CONVEYOR 
TALLER 
CONVOY 
LIGHTBIKE 
LA TUMBA DE ELLAK 


Figura 1 


Figura 2 


figuración: en cada palabra de 8 
bits reservaremos uno (el menos 
significativo) para indicar el estado 
lógico que corresponde a la señal 
(si es 0 ó 1). Los siete bits restantes 
se usarán para almacenar el nüme- 
ro de ciclos de muestreo que la se- 
ñal ha estado en el nivel dado. Por 
tanto, el valor almacenado será 
2 * n +e, donde "n" es el número 
de muestras tomadas y "e" es el 
valor de la entrada. 

Aclaremos las ideas con un 
ejemplo (ver fig. 5). En primer lu- 
gar, tendremos la entrada a 0 du- 
rante 5 ms. Con el valor dado de la 
frecuencia de muestreo, durante 
este tiempo habremos sido capaces 
de tomar 5.10^-3 * 3.10 4 = 150 
muestras. Como en cada byte po- 
demos contar un máximo de 2^7-1 
= 127, necesitamos encadenar dos. 
El primero con el valor de 254 y el 
segundo con 46, el doble de los 32 
restantes. 

A continuación la entrada estará 
en 1 durante 100 us. Podremos en 
este tiempo muestrear la entrada 
1074 * 3.1074 =3 veces. Almace- 
naremos por tanto el número 7. 


Programas 


Vamos a pasar directamente a la 
descripción de los programas. El 
primero de ellos es el encargado de 
la grabación (RECORD) y el se- 
gundo de la reproducción, PLA Y. 

El área de memoria asignada 
para el almacenamiento de los dis- 
cursos es la comprendida entre la 
dirección START y el final de la 
memoria FFFFH. Es interesante 
que tanto el programa como el ar- 
chivo de “уосез y gritos" estén en 
el segundo bloque de 32 K, esto es, 
entre las direcciones 8000H y 
FFFFH. La justificación del hecho 
reside en que el acceso a memoria 
en el primer bloque de 16 K de 
RAM sufre pequeños retrasos de- 
bido al robo de ciclos que efectüa 
la ULA. Esto podría afectar a los 
procesos de temporización del 
programa. 

Por idénticas razones, aunque 
en este caso mucho más justifica- 
das, es necesario deshabilitar las 
interrupciones (mediante la ins- 
trucción DI, ver TODOSPEC- 


TRUM nümero 6). 


Programa RECORD 


Usaremos el registro C para al- 


macenar información relativa al 
estado de la entrada. El contenido 
del bit menos significativo de C 
será un fiel testigo del nivel de en- 
trada. Para detectar una posible 
transición de nivel compararemos 
este registro con el A, después de 
haber hecho sobre éste algunas 
manipulaciones. Veamos cuáles 
son éstas. 

A] acabar de ejecutar una ins- 
trucción de entrada de datos a tra- 
vés del puerto 254 (FEH), nos en- 
contramos en el bit 2 de A la infor- 
mación relativa a la entrada de 
cassette (quienes se hayan sentido 
ligeramente indispuestos, les reco- 
mendamos una cura a base de una 
lectura del capítulo 23 del manual). 

Si realizamos dos giros sucesivos 
del acumulador hacia la derecha, 
el mencionado bit aparecerá en el 
lugar menos significativo. Al hacer 
un AND 01, despejaremos la pala- 
bra de información no deseada. El 
acumulador guarda ahora un 0 ó 1 
en función de la entrada. Compa- 
rando este registro con el C, estare- 
mos en condiciones de determinar 
si ha habido o no cambios de nivel. 

El bucle de muestreo está con- 
trolado por un DJNZ. El agudo 
lector habrá observado que el re- 
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Programa 2 768: LET 1-0: LET 8 

1 REM ЖЖ PROGRAMA CARGADOR ЖЖ IF 12114 THEN GO TO 200 

2 REM READ D: IF D=0 THEN READ F 

10 DATA 115,128,245,14,1,6, FOR 2-1 TO F: FOKE (I+A),9: LE 
126,219,254,0,12 NEXT J: 60 TO 120 

20 DATA 7,7,230,1,169,32,24,15 140 POKE (I+A),D: LET SUMA-SUMA 
,233,203, LPR, 22. 119 +D: LET I=I+1: GO TO 120 | 

30 DATA 25,124,181,22,211,251, 200 IF SUM 176 THEN GO TO 1 


ооо 

210 FRINT " Frograma correctame 
nte escrito."''TAB 6; "Grabelo en 
cinta"****; SAVE "Vox"CODE ñ, I: 


1177,47,119,121,.47 


203, 56, 56, 2, 62,2355,211,2534.0,17 


50 DATA 16,233,0,7 FRINT " Rebobine para verifi 
о DATA Z! ‚124,181, car": VERIFY ""CODE А„1: STOF 
201 1000 ВЕЕР .2,30: PRINT "Hay un e 
100 RESTORE : CLEAR rror. Revise los DATA s": STOF 


Figura 3 


Figura 4 
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gistro B ha sido previamente ini- 
cializado con el máximo nümero 
de períodos que puede almacenar- 
se en un byte (recordemos que un 
bit se reserva para apuntar el ni- 
vel). Segün se van tomando mues- 
tras sin que se altere el nivel de en- 
trada, se decrementa el registro B. 
Es fácil de demostrar que en B te- 
nemos el complemento a 1 (la in- 
versión lógica) del nümero de 
cuentas realizadas, a excepción del 
mencionado bit de nivel. En la 
práctica rotaremos B, introducire- 
mos el ya famoso bit, complemen- 
taremos y escribiremos en memo- 
ria. 

El bucle de muestreo se abando- 
nará en dos posibles circunstan- 
cias: 

1) Serealiza un ciclo completo 
de büsqueda sin detectar cambios 
de nivel. En este caso se realiza la 
operación descrita, se incrementa 
HL (dirección a introducir el pró- 
ximo dato) y se comprueba si he- 
mos llegado al final. Para esto ha- 
remos un OR entre H y L. Sólo en 
el caso de que ambos registros es- 
tén a 0 (esto es, HL = 0000) el re- 
sultado será cero, lo que se refleja- 
ráen el Zero Flag. Si llegamos al fi- 
nal devolvemos la posibilidad de 
responder a las interrupciones y 
pasamos al BASIC. 

2) Se detecta un cambio a la 
entrada. En este caso acudiremos a 
FLANCO, donde se invierte el 
contenido de C y se repiten las 
operaciones del caso anterior. 


Programa PLAY 


Esta rutina es mucho más senci- 
lla. En función del bit de nivel car- 
garemos en A todo ceros o todo 
unos. Al ejecutar la instrución 
OUT (FEH), A, el contenido del 
acumulador se “desparramará” 
por el exterior manchando el bor- 
de de diferentes calores, teniendo 
también eco en el altavoz exterior. 

El proceso —muy semejante al 
anterior—, consistirá en repetir las 


salidas en la misma secuencia de 
entrada. 


DEFBO, iqué raro! 


Es realmente poco frecuente en- 
contrar este tipo de cosas en pro- 
gramas razonables (ilo que ocurre 
es que éste no lo es). El DEFB 
(DEFine Byte) es una instrucción 
del lenguaje ensamblador del Z 80 
que no tiene equivalente en el có- 
digo máquina de este аР. Es lo que 
se llama “pseudo op-code" (op 
code: código de operación). Su mi- 
sión es la de poner en memoria el 
byte indicado, en este caso 0. El 
cero corresponde a una instruc- 
ción de código máquina que todo 
el mundo conoce bien, el NOP, 
cuya misión es básicamente la de 
no hacer nada (esto es, perder el 
tiempo miserablemente). 

No hay que asustarse de los 
DEFB ya que en nuestro caso re- 
sultan ser inofensivos NOP's. No 
sc ha empleado esta notación más 
clara, ya que entonces el listado re- 
sultaría enormemente largo. 

Ya sabemos qué son. Ahora sólo 
nos queda conocer para qué sir- 
ven. Hemos insistido mucho en 
que los procesos de grabación y re- 
producción han de llevarse a cabo 


con una puntualidad exquisita. De 
otra manera los resultados serán 
frustrantes. Quien disponga de un 
ensamblador y tiempo libre, puede 
comprobar resultados añadiendo o 
quitando ceros, esto es, alterando 
la temporización del proceso. 

Lo que se pretende es, simple- 
mente, igualar el tiempo que tar- 
dan en ejecutarse los diferentes bu- 
cles, sea cual sea el camino que se 
tome o la rutina en la que estemos. 
Estas “pérdidas de tiempo” con- 
troladas son una inestimable ayu- 
da para conseguir nuestros propó- 
sitos. 

En el listado en Ensamblador 
del programa se han indicado en la 
columna derecha el nümero de pe- 
ríodos de reloj necesarios para la 
ejecución de cada instrucción. De- 
jamos para el lector la comproba- 
ción de lo anteriormente expuesto. 
Recordamos que el Z 80 del Spec- 
trum tiene una frecuencia de reloj 
de 3.5 MHz, lo que significa que 
un período dura 290 ns. 

Confiamos que disfrute de unas 
agradables conversaciones con su 
amigo el Spectrum. iY, en cual- 
quier caso, siempre es fácil hacerle 
callar! 


Luis M. Brugarolas 


Programa 3 
10 CLEAR 


34 
ЗО FRINT 
a para 
40 FOR ñ 
SE O: CLS 


SO CLS : 

ete:E para 

6 para 

£0 INPUT 

70 IFA 

BO IF.As 
LAY 


90 GO TO 


casette.""'" Apriete alguna жесі 


H 1;"GRABANDO": 


BORDER 0: PRINT "Apri 
escuhar 
grabar" 
A$ 
"THEN BD TOSO 
e" THEM LET A-USR F 


30000: LOAD ""CODE 
20 LET REC= 


32768: LET PLAY=328 


" Ponga en marcha el 


empezar a grabar" 
) TO 100: NEXT А: FAU 
PRINT АТ 10.12; FLAS 
LET A-USR REC 


Dejando aparte la deficiente traduc 
ción, el único problema con el que nos 
lemasiado 


encontramos es un juego “ 


inteligente" por parte del ordenador; 
no nos deja hacer jugadas ilegales y 
cuando le pedimos ayuda nos orienta 
hacía jugadas “desastrosas”. Un talento 


El menú da una orientación rápida 


с las posibilidades del juego, hasta 14 
opciones diferentes. Veámoslas en for- 
ma resumida 

|. Juego nuevo. Para comenzar a 
jugar 

2. Continue juego antiguo. Para se 
guir un juego anterior 


3, Ajedrez blitz. P. 


wtidas contra. 
rreloj 
4. DEMO, El Turco juega contra 


sí mismo. 


5. INPUT secuencia de pasos. Para 
dos jugadores, 
6. Pasos retrazables en el juego. 


Visión “retrospectiva” de las jugadas, 
7. EDIT pantalla o r 
ción. Para partir de una posición deter 


ieva posi 
minada. 

8. LIST pasa a pantalla. Listado de 
movimientos en pantalla 

9. LIST pasa a imprenta 
de movimientos en impresora. 

10. LINE PRINT la pantalla. Im- 
presión de la pantalla 


Listado. 


11. SAVE pasa a cinta. Se graban 
todos los movimientos. 

12. SAVE pantalla a cinta, Se gra 
ba la pantalla. 

13. LOAD pasa de la cinta. Se car- 
gan todos los movimientos. 

14. LOAD pantalla de la cinta. Se 
carga la pantalla 

Variadas 


opciones todos. los 


para 


gustos, con buena presentación. La ор 
ción 6 resulta especialmente vistosa al 
poder visualizar los movimientos de 
toda la partida, con desplazamiento pi 
xela pixel vertical de las casillas afecta 


das. La entrada de jugadas es otro buen 


ejemplo de la cuidada presentación 
cuando se solicita ayuda se coloca la ju 
gada en la línea de entrada y basta con 


teclear ENTER 


Todo esto está muy bien, pero ade 
más juega, Tiene seis niveles de juego. 
siendo los tiempos de respuesta aproxi- 
mados de 5, 10 y 90 segundos para los 
tres primeros niveles; 10 y 60 minutos 
para el cuarto y quinto, y hasta 6 horas 


para el sexto y último nivel 


Mientras “piensa”, se visualizan en 
pantalla las distintas posiciones que el 
ordenador evalúa, 


decisión definitiva 


antes de tomar la 


BRUCE LEE 


Je inminente "estre 
me | juego de Bruce I 
3s requisitos рага entr 

más vendidos: una 
sortear diy 


ar al objetiyc 


№ rata de un ju 
to cs importante ten 
hora de entrar en ү 
jetivo final. La lucha, 1 
li. mediant 1 ir 


le la lu 
ien conseguidos, que sc 
justificaría el jue 

En cuanto a lo: ег 


no" para este 
n 

ene todos 

r en la lista de 
aventura en la 


final. Objetivo 


20 contrarreloj, 

lo en cuenta 
lea o ir hacia el 
lógicamente, se 


n las manos c 


te s persi. 
acha están tan 


1emigos”, sók 


to combinadc 


puede ser mortal. Tres gol; 
la m lisponiendo de 
por >, También ellos 


la existencia puc 


golpes, pero tienen un número ilimit 


mos de ellos temporalmente 
Pero si lo que se qui 


objetivo final, para ello nc 


de salir victorioso de | 
con el enemigo. El paso pc 
rinto de túneles” se consigu 
las linternas que hay qu 


diversos saltos (en ocasiones de u 
intento). A ello se 
cultad 


ide una dif 
licional: t l 
iciona actor aleatoric 

leterminadas plantas qui ibren 


levoran a todo lo que pillan 
[ 


1 tas pantallas estin bic 
c guidas, con efectos práficos d 
buen calidad, pero sin duda su mayor 
riginalidad y adicción lo constituye la 


lucha “cu 


Ello unido a la ne 


lo lentamente par 


con Spectrum 


° ué podemos hacer con 
© los ordenadores en la 
escuela? La respuesta 
Comentábamos en el número anterior la problemática que Wem DUE a. MERE 
representa la introducción de la informática en CentfrOS tiene uma compleja organización 
escolares, tanto en educadores como para profesionales de “de niveles, cursos, programas de 
la informática. estudio y distintos propósitos se- 

gün las edades del alumnado. Lo 


que podremos hacer en estos dife- 
q rentes estamentos dependerá + 


— A 


mayormente de los planteamien- 
tos pedagógicos que los rigen y que 
muchas veces son insuficiente- 
mente claros. 2 

Muchos sostienen que la educa- 
ción primaria tiene como eje cen- 
tral la formación del alumno en 
habilidades básicas de lectura, es- 
critura y conocimientos generales 
de ciencias y letras. Sin embargo, 
este acento en la formación está 
frecuentemente contrastado con 
un terrible bombardeo de informa- 
ción. Tremendos manuales de di- 
ferentes asignaturas, enciclopedias 
y diccionarios rodean al niño, con- 
tradiciendo lo que aparentemente 
debería ser. Parece que la habili- 
dad más importante es la de me- 
morizar información para más tar- 
de escupirla en un examen. ¿Cuán- 
tas veces hemos oido las quejas de 
los profesores de matemáticas por 
las dificultades que tienen sus 
alumnos para resolver los dichosos 
“problemas”? Son estas habilida- 


do especialmente con esta finali- 
dad. Claro está que si lo que pensa- 
mos es que nuestros alumnos de- 
ban memorizar la Enciclopedia 
Británica como su mayor bien cul- 
tural, dificilmente podremos utili- 
zar un ordenador que esté al alcan- 
ce de nuestros medios económicos. 

El uso de los ordenadores depen- 


Un profesor puede 
utilizar los ordenadores 


sin ningún 
conocimiento de 
programación 


de de los criterios pedagógicos ge- 
nerales que tengamos y de la labor 
que deseemos realizar. 

El tipo de enseñanza determina 
en mucho lo que podemos hacer 


Con un aula informática pode- 
mos desarrollar un trabajo en dos 
frentes: trabajar con lenguajes de 
programación y trabajar con pro- 
gramas educativos. 

Entendemos por programas edu- 
cativos no sólo aquellos que hayan 
sido concebidos para tratar un de- 
terminado tema, ya sea de Geogra- 
fía o de Química, o para corregir 
en el mismo ciertas dificultades en 
la escritura. También pueden uti- 
lizarse ciertos programas como un 
procesador de textos con una fina- 
lidad educativa. Un procesador de 
textos, originariamente concebido 
para confeccionar cartas e infor- 
mes en una empresa, puede con- 
vertirse en una hermosa herra- 
mienta en manos del profesor o la 
profesora de literatura. óPor qué 
no escribir la redacción con el or- 
denador? ¿No es posible acaso rea- 
lizar un periódico estudiantil con 
este programa, creando así una ac- 
tividad enriquecedora? 


des las que quiza deberíamos desa- 
rrollar mucho más. La posibilidad 
de trabajar los aspectos más creati- 
vos del intelecto, de construir he- 
i sólidas de razonamien- 
to, de potenciar en última instan- 
cia el desarrollo intelectual de ni- 
ños y jóvenes fuertemente vin- 
culada al. uso que podemos hacer 
del ordenador. El LOGO es un 
lenguaje de programación diseña- 


con un aula informática. No hare- 
mos lo mismo en una escuela de 
Básica que en un centro de forma- 
ción profesional administrativa. Es 
quizá innecesario que los alumnos 
de BUP trabajen con una tabla grá- 
fica, pero es muy útil en una escue- 
la de diseño. Lo que sí podemos es- 
tablecer es un criterio general que 
nos sirva para todas estas distintas 
enseñanzas. 


Sobre este particular, es decir, 
sobre el sofiware educativo, nos 
centraremos en futuros artículos. 

Este criterio general que hemos 
expuesto sobre el uso de un aula 
informática puede aclarar también 
un tema que preocupa a aquellos 
maestros y profesores que no se 
sienten muy entusiastas hacia la 
informática. 

Con razón, muchos ven en esto 


la necesidad de estudiar un tema 
nuevo y desconocido; la necesidad 
de reciclarse casi obligatoriamente 
en algo que no eligieron vocacio- 
nalmente. 

Esta confusión quizá se deba a 
que se reduce la utilización del 
aula informática a la enseñanza de 
lenguajes de programación. 

Para la secretaria de una empre- 
sa basta con que sepa cómo encen- 
der el equipo, cómo cargar el pro- 
grama y conocer el funcionamien- 
to del mismo para que pueda reali- 
zar sus anotaciones contables. No 


El Colegio Zurich de Barcelona, 
dedicado a la Enseñanza General 
Básica, es un buen ejemplo de aula 
informática con Spectrum. José 
Macías, director del centro, nos re- 
lata sus actividades: *Actualmente 
tenemos doce Spectrum Plus, por 
los que pasan todos los alumnos. 
Nuestro interés es la adecuación de 
la informática a la estructura peda- 
gógica general del centro, a partir 
de lós departamentos de ciencias y 
más concretamente de matemáti- 
cas, donde vemos aplicaciones in- 
mediatas. Pero también puede ha- 
ber otros departamentos que se 
aprovechen de ello, utilizando los 
microordenadores con programas 
educativos. 

No somos partidarios de la ense- 
ñanza asistida por ordenador, y 
para nosotros la alternativa son 
lenguajes como el Logo. Al niño le 
resulta muy difícil seguir un razo- 
namiento lógico, simplemente por- 
que lo que un profesor puede entre- 
garle como material de trabajo en 
clase es algo tremendamente abs- 
tracto. Con el Logo el niño tiene 
que estructurarse mentalmente y 
tiene que seguir esta estructura- 
ción, de otra forma no llegará a ese 
fin que él pretende.” 

El Logo no es su única herra- 


necesita en absoluto conocimiento 
alguno de programación y sin em- 
bargo puede realizar eficientemen- 
te su trabajo. 

De igual forma, un profesor pue- 
de utilizar los ordenadores del cen- 
tro sin ningün conocimiento de 
programación. Basta que sepa 
cómo funciona el aula, cómo se 
cargan los programas y cómo utili- 
zarlos para sacarles un buen pro- 
vecho. 

Con esto no queremos decir en 
absoluto que deban limitarse a 
ello, como tampoco pensamos que 
el aprendizaje de ciertos lenguajes 
de programación no les sea de uti- 


mienta. El criticado BASIC tam- 
bién está presente. “Utilizamos 
BASIC por una razón sencilla: 
cuando los chicos terminen sus 
ocho cursos de básica y salgan a la 
calle, se encontrarán en cada esqui- 
na con él. Intentamos darles unas 
nociones muy generales, para que 
lleguen a poder realizar pequeños 
programas y prácticas dentro del 


contexto de las materias de cien- 
cias que actualmente estudian." Y 
no sólo lenguajes, la elección de 
programas educativos no es menos 
importante: “Соп los pequeños uti- 
lizamos programas pensados para 


que el chico se vaya familiarizando 
con el ordenador. 
Indirectamente esto les supone 


toda una serie de refuerzos con el 


lidad. Lo que criticamos es que cl 
uso del aula informática quede re- 
ducido a un determinado semina- 
rio en el instituto o al profesor que 
conoce el tema en la escuela. 

Si bien es importante que la ex- 
periencia descanse en determina- 
dos reponsables, el aula informáti- 
ca ofrece un instrumento técnico 
de gran valos para ser aprovechado 
por el conjunto de los profesores, 
sean de ciencias o de letras, sepan 
o no lenguajes de programación. 

El proyecto pedagógico se con- 
vierte, por tanto, en la elec 
apropiada de un lenguaje d 
gramación con el que 


trab 
traba 


Б 


como en la selección de los prc 
mas educativos que se utilizar 
ara terminar, desearíamos que 
nos hicierais llegas vuestras expe- 
riencias sobre este tema y vuestr 
consultas o críticas si las hubiera. 

Deseamos que esta sección con- 
tenga un correo de lectores que 
vinculados a la educación deseen 
recibir información y asistencia so- 
bre los problemas que se puedan 
encontrar en la escuela trabajando 
con microodenadores. 


Miguel Figini 
Miembro del equipo 
de asesores de Ioshua 


amigos 


abecedario, mayúsculas y minúscu- 
las, etc. Con los mayores este tipo 
de juegos permite desarrollar la 
fantasia y toda una serie de aspec- 
tos que en clase difícilmente tienen 
lugar.” 

Muchas son las experiencias que 
se están llevando a cabo en este te- 
rreno, y los resultados no siempre 
son satisfactorios. José Macías co- 
menzó esta labor hace ya tres años, 
aunque no todo saldría bien al prin- 
cipio: “Comenzamos con cursos 
fuera de las horas de clase y la ex- 
periencia resultó bastante desgra- 
ciada. Es un grave error que no re- 
comendaría absolutamente a nadie. 
Este no es camino para incorporar 
la informática a la escuela, ya que 


se convierte en un simple añadido. 
Otro aspecto igualmente impor- 
tante es la respuesta de profesores 
y padres. “Si no hubiera habido un 
mínimo de personas interesadas en 
el tema, dificilmente se hubiera 
puesto en marcha esta experiencia. 
El resto del О. stá 
una actitud de espera, a ver Ic 


“No se puede hacer | 
de la informá | 


suced 


ben perfectamente que 
a de büsqueda, 
«perimentación. Aunque no 
pado en la idea de en- 
puede haber una 
sus Serene cam- 
, la 


estamos en una е! 
de 


participación ü 
ecesaria, aunque la utili- 
radores de bajo | pre- 
no se “disparen” los 
untualiza José Ma- 
enos costoso de lo que 
. Estamos inten- 
пайса hasta octavo 


Costes, cc 
jas, “E: 


tando d 
de básica y de alguna forma menta- 
lizarlos de que el material que ne- 


cesitan no es excesivamente sofisti- 
cado, Para cumplir esta misión el 
Pius es suficiente.” 

“Та informática tiene una im- 
portancia muy grande en el futuro 
de nuestra profesión y de nuestra 
dedicación. Yo recomiendo que lo 
tomen en ser io y no intenten jamás 
er de ella un añadido más, como 
tantas actividades que se realizan 
fuera as de clases", con- 
cluye José Mac quien se mues- 
tra particularmente orgulloso de 
los logros conseguidos. 

P SES ааа AN 
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| on cada vez más los peque- 
fios empresarios o comer- 
ciantes que han acudido al 
Spectrum como ordenador 
con el que dar los primeros 
pasos en el mundo de la informáti- 
ca. Las razones son variadas: quizá 
lo compró “para que jueguen los 
nifios", quizá porque la inversión 
es pequeña y “по se arriesga mu- 
cho". Para servir a este tipo de 
usuarios han ido apareciendo pro- 
gramas profesionales: contabilida- 
des, control de stocks, etcétera. 
Recientemente ALSI ha puesto 
ala venta su programa de factura- 


“CANTIDAD 
UMNA 45 
RECIO", EN LA 
"TOTAL", 


TOTALES", 


Ем 
EN 


QUIERE CAMBIAR ? 


- Шаша 


ción. Se trata de un programa que 
integra varias funciones, siendo su 
propósito facilitar la gestión de la 


pequefia empresa o comercio. Con. 


él se puede facturar, hacer pedidos, 
controlar el stock, elaborar listas 
de precios y de clientes. Para ello 
el programa maheja hasta veinte 
ficheros diferentes, diez de clien- 


LA 66 
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14 Р 
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tecta 


2 
ES 


e cualquier 


tes, proveedores o distribuidores y zar impresoras de 80 columnas 


otros diez de artículos. 

Cada. fichero de clientes puede 
mánejar hasta 30, y 100 cada fi- 
chero de artículos. Siendo una 
aplicación donde es esencial el al- 
macenamiento de datos, el progra- 
ma trabaja en microdrive. Para im- 
primir facturas será necesario utili- 


cuyos códigos para caracteres 
compromidos y doble ancho coin- 
cidan con los de las impresoras Ep- 
son, pudiendo utilizar la salida 
RS232 del Interface 1 o un interfa- 
ce Centronics Kempston o Indes- 
comp. 

Tras la carga del programa por 


primera vez, será necesario abrir, 
como mínimo, un fichero de ar- 
tículos y otro de clientes. Además, 
el programa nos preguntará el 
nombre, dirección, teléfono, nú- 
mero de identificación fiscal “y 
margen de beneficio. Estos datos 
serán utilizados automáticamente 
por el programa como cabecera de 
todas nuestras facturas. Después se 
nos pregunta el tipo de impresora 
que tenemos (Serie o Paralelo) y si 
es RS232, la velocidad de transmi- 
sión a que trabaja (en baudios). 

Llegamos así al Menú Principal, 
que tiene diez opciones: Creación, 
Modificación, Listados, Introduc- 
ción, Impresión, Borrado, Clasifi- 
cación, Cambio de formato de im- 
presión, Cambio de fichero y dejar 
el programa. 

Desde este momento, podremos 
empezar a introducir artículos en 
el fichero. Por cada uno se debe in- 
troducir el código de identifica- 
ción, el nombre, el número de uni- 
dades en stock y el precio de venta 
al público. El precio de coste será 
calculado automáticamente por el 
programa a partir del margen de 
beneficio. 

La introducción de clientes se 
realiza de una manera parecida: se 
nos pregunta nombre, código, di- 
rección y teléfono. Las opciones de 
modificación de artículos y clien- 
tes son parecidas, aunque en este 
caso el programa nos pregunta pri- 
mero por la ficha que queremos 
cambiar. 

Se pueden utilizar las opciones 
de listado de clientes y artículos 
para obtener copias impresas (o en 
pantalla) de la lista de artículos o 
del fichero de direcciones. La op- 
ción de clasificación permite orde- 
nar el fichero de artículos, bien por 
orden numérico (de códigos) o de 
nombres. El fichero de clientes 
sólo se puede clasificar por orden 
alfabético. 

La opción de creación nos da 
paso al meollo del programa: cua- 
tro opciones que nos permiten ela- 
borar facturas, ofertas, pedidos o 


«albaranes. En los cuatro casos, el 
ordenador empieza por preguntar- 
nos el nombre del cliente o provee- 
dor. Si el nombre está en el fichero 
utiliza los datos de éste; en caso 
contrario nos pregunta el resto de 
los datos y pasa a incluirlo para re- 
ferencias posteriores. Tras el nom- 
bre del cliente se nos pregunta la 
fecha, después se pueden incluir 
los códigos de referencia de hasta 
10 artículos, 

Si el código no está presente en 
el fichero de artículos, el programa 
nos preguntará automáticamente 
el resto de los datos y lo incluirá en 


el stock, “poniendo” un ejemplar 
en el almacén. Esto último no re- 
sulta deseable en muchas ocasio- 
nes. Por ejemplo, ofertamos un ar- 
tículo que no tenemos en almacén. 
El programa nos pregunta los da- 
tos del producto. Si después hace- 
mos un listado de existencias nos 
encontramos con que aparece un 
ejemplar. 

Al acabar la lista de artículos, el 
programa nos pregunta la forma de 
pago. Esta se puede elegir entre 
cinco predefinidas o teclear la fór- 
mula elegida. También se nos pide 
la entrega inicial (línea de texto 
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concepto 
artículo primero | 
Artículo segundo 
Artículo tercero 
Artículo cuarto 


cod 
360001 
370062 
360003 
390004 
400005 Articulo quinto 


Linea de texto 


Otra linea de texto 


tot: bruto * 


cant. precio Taporte 
g arcc 22'- 
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x іле TOTAL 
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tad) y otra linea de 
cimientos. El or 
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cando el 
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fecha NUR. Gran Via, 51 
12.04,85 00002 Burgos 
BURGOS 
| forma de pago: A CONVENIR 
cod. concepto cant. precio importe 
|0001 Interface 4 1 15400,- 15400,- 
0002 YW Espectro 1  2300.- 21400. - 
0012 lapresora Matriz "JAPAN" serie 1 54000.- 54000.- 
|9010 Cable Sablazo Centronics 1 $300. - 5300. - 
modificar o borrar una factura in- lento en su ejecución y la capaci- 
correcta. Por lo demás, no resulta dad es acorde con los objetivos y 


Eugenio Ubeda es un 
"enamorado" de los orde- 
nadores. Ahora sustituido 
por el personal de IBM, el 
Spectrum ha llevado sobre 
“sus espaldas” el control 
de stocks de la pequeña 
tienda de recambios y 
compra-venta de coches. 
El se hizo sus propios pro- 
gramas y podría haberse 
ahorrado mucho tiempo 
“he invertido más de 
500 horas en los progra- 
mas” — si hubiese contado 
con un buen programa de 
facturación. 

"El problema es que 


hay programas para médi- 
cos, abogados..., pero no 
para los automovilistas. 
Por eso me metí a hacer 
mis propios programas. 
Con ellos realizo la factu- 
ración de alquileres de co- 
ches, compra-venta, mai- 
ling y, sobre todo, el con- 
trol de stocks. El Spec- 
trum ha funcionado siem- 
pre bien y sin ninguna 
avería, pero se me había 
quedado pequeño, a pesar 
de sus 47 conceptos por 
artículo, El almacena- 
miento en cinta es uno de 
sus mayores probemas. 


empresa que lo comercializa nos 
comentó que estaban trabajando 
en una versión para QL del mismo 
programa. Esperamos que esta ver- 


racterísticas, un programa que nos 
ayuda en la gestión de almacén y 
facturación de pequeñas empresas 
y comercios. Util, aunque tenga li- 


003 
RELACION DE ARTICULOS AL 21.04.85 SUMINISTROS MARTINEZ, S.L. INTERSONICA 
Pedro Lopez, 25 
COD. NOMBRE PRECIO CANT. TOTAL | COSTO = Madrid - 
0001 Interface 4 15400.- В 129200 10010.- 28003 MADRID 
< | 0002 ҮМ Espectro 23400.- 96 2246400,-  15210.- 024 
* |0005 Joystick Sargento Mediano 1435,- 100 145500.- 933,- MICROTIENDA 
9004 Monitor TUB 14 plgadas color 93000.- 10 930000.- 80450.- OBS 
0005 Monitor Fosforo Rosa 14 pulgadas 34000.- 15  510000.- 22100.- Aneta 1 
000% Impresora Termica BURNS 23000.- 1 23000.- 14950.- 03003 ALICANTE 
0012 Impresora Matriz "JAPAN" serie 54000.- И 35100. - 
0010 Cable Sablazo Centronics 5300.- 1 3445.- 92 
MICRO-TUYO 
‚ Зап Pedro, 124 
Toledo 
TOLEDO 
004 
posibilidades del Spectrum. La Resumiendo sus principales ca- 30FT-VARE 


Corts Catalanes, B4 
Barcelona 
08012 BARCELONA 


sión saque partido de la superior mitaciones que ya hemos comen- 002 
memoria y características gráficas tado. La presentación gráfica no TIRSA 
del QL, resultando una aplicación está excesivamente cuidada, aun- Pi, 24 


más acabada que la que comenta- 


mos. 


que donde el programa “Ча la ta- 
lla" es en la impresora. 


Hospitalet de Llobregat 
08124 BARCELONA 


Pense en el QL como sus- 
tituto, pero tuve una bue- 
na oferta del PC..." 

Miembro de la Asocia- 
ción Nacional de Vende- 
dores de Vehículos a Mo- 
tor, se comunica habitual- 
mente por teléfono para 
recabar informes sobre la 
legalidad o no de determi- 
nadas operaciones: *Aho- 
ra es muy lento. Tendre- 
mos que ir en el futuro a 
estar conectados a una 
base de datos...” 

Después de trabajar in- 
cansablemente con el 


Spectrum, no duda en cali- 
ficarle de una máquina ex- 
traordinaria, aunque 
siempre trabajaba en 
casa: “Lo tuve que quitar 
de la tienda porque a la 
gente no le parecía serio. 
Entraban y se creían que 
estábamos jugando a los 
marcianitos.” Lamenta- 
blemente existe esta 
creencia, y aunque sea el 
ordenador con mayor nú- 
mero de juegos del merca- 
do, también son muchos 
sus programas de aplica- 
ciones. 


Hm 


Т 
Бинь 


Descubrimiento 


PASCAL 


de un nuevo 


na vez vistas las variables 
[ de tipo estándar dentro del 
PASCAL, vamos a hablar 
WENN en esta ocasión de otro tipo 
de datos y variables, las 
TYPE, tanto simples como com- 
puestas. 
Dentro de las simples tenemos 
los tipos enumerados o escalares, 
los conjuntos y el tipo subrango o 
intervalo. Al hablar de las com- 
puestas nos estamos refiriendo a 
las matrices, llamadas en PASCAL 
arrays. 


Variables TYPE simples 


Al igual que los demás tipos ya 
vistos, es necesario declararlas en 
su lugar correspondiente, Si nos fi- 
jamos en el diagrama general de un 
programa Pascal, visto en capítu- 
los anteriores, observamos que este 
lugar está entre la declaración de 
constantes y variables y que deben 
ir precedidas por la palabra reser- 
vada TYPE. 


Tipos enumerados 
0 escalares 


Este lenguaje, aparte de propor- 
cionar los tipos de variable están- 
dar, permite definir nuestros pro- 
pios tipos de datos. conseguimos 
esto mediante el siguiente tipo de 
declaración: 


En los siguientes ejemplos indi- 
camos que la variable juegos puede 
tomar cualquiera de los cuatro va- 
lores que se indican, pero nunca 
otro de los no especificados. Lo 
mismo ocurre con la variable mar- 
cas. 


ТҮРЕ 
juegos = (tute, mus, canasta, 
poker); 
Marcas = (renault, seat, ci- 
troén, volvo); 


© 


Si queremos utilizar estos tipos 
dentro de un programa, tendremos 
que declarar variables del tipo pre- 
viamente definido. Asi por ejem- 
plo: 


VAR 


mi juego: juegos; 


Dada esta declaración las asig- 
naciones: 


serian perfectamente validas. (Ver 
diagrama sintactico en figura 1.) 


Otro aspecto importante a resal- 
tar son los operadores que pode- 
mos utilizar con las variables de 
tipo escalar. Solamente está per- 
mitido utilizar los operadores de 
relación, obteniendo como resulta- 
do de las expresiones un valor boo- 
leano que como sabemos toma los 
valores TRUE o FALSE. 

El orden de los elementos dentro 
de una lista de tipos enumerados 
esta definido por la posición en 
que ćstos se colocan en la declara- 
ción. Asi, para nuestro ejemplo, el 
primer elemento será tute, el se- 
gundo mus... 

Expresiones perfectamente váli- 
das dentro de un programa po- 
drían ser: 


tute < mus, citroen > volvo, 


dando como resultado de la cva- 
luación TRUE y FALSE, respecti- 
vamente. 


Como ya vimos al estudiar los 
datos de tipo carácter, existen tres 
funciones incorporadas del Pascal 
que nos pueden ser muy útiles 
para trabajar con este tipo de da- 
tos. Estas funciones son PRED, 
SUCC y ORD. 

Recordemos que las funciones 
PRED y SUCC operan con tipos 
escalares y devuelven el elemento 
anterior y posterior, respectiva- 
mente, dentro de la lista de ele- 
mentos de la declaración, mientras 
que la función ORD nos devuelve 
un valor entero, que indica la posi- 
ción del elemento en cuestión den- 
tro de dicha lista. Hay que tener en 
cuenta el primer elemento de la 
lista que tiene el valor ordinal 0, y 
no 1, como cabría suponer. 


En nuestros ejemplos: 
ORD (mus)=1 


PRED (poker) = canasta 
SUCC (seat) = citroen 


ORD (citroén) = 2 
PRED (seat) = renault 
etc. 


Tipo subrango 


También llamado intervalo. 
Mediante este tipo podemos decla- 
rar variables que están siempre 
dentro de un margen, dando el lí- 
mite superior e inferior y definien- 
do asi un intervalo. 


Figura 1 


IDENTIFICADOR 


La forma de definición es: 


TYPE 


iminf..limsup: 


siendo liminf y limsup constantes. 


Estas constantes que delimitan 
el intervalo pueden ser de tipo in- 
teger, char o del tipo escalar visto 
anteriormente, pero nunca de tipo 
real. (Ver diagrama sintáctico en 
figura 2.) 


Ejemplos de declaraciones de 
datos de tipo subrango son: 


VAR 
digito: ‘0 


9% 


laborables: lunes.. viernes; 


Para esta ültima declaración, 
previamente deberíamos haber dc- 
finido el tipo de datos día-semana 
de la siguiente forma: 


TYPE 
díasemana = (lunes, martes, 
miércoles, jueves, viernes, 
sábado, domingo); 


Existe un pequeño problema 
con el manejo del tipo subrango: 
salirse de los límites impuestos. 
Aunque en principio no sea un 
error sintáctico el error aparecerá 
en tiempo de ejecución. Veámoslo 
con un ejemplo: 


ТҮРЕ 

intervalo=1.. 10: 
VAR 

nümero: intervalo; 


La asignación nümero; 11 es 
perfectamente válida sintáctica- 
mente, y sin embargo al ejecutar el 
programa aparecerá un error al sa- 
lirnos del rango impuesto para la 
variable número. 

Para aclarar lo expuesto el pro- 
grama | imprime todos los nüme- 
ros de tres cifras de forma que la 
suma de los cubos de las cifras son 
iguales al nümero en cuestión. 


Programa 1 
PROGRAM cubo; 
ТҮРЕ 
digito =0.. 9; 
VAR 
i,j, k: dígito; 
BEGIN 
FOR i:=O TO 9 DO 
FOR j:=O TO9 OO 


FOR O TO9 DO 
IFi*i*i+j*j*j+k*k* 
k=100*i+10*j+k 

HEN writeln (i : l. j : 1, k 
e 


END. 


Figura 2 


— 


LIMINFERIOR 


— 


LIMISUPERIOR 


— CONSTANTE 


Tipo SET o conjunto 


Todos sabemos lo que es un 
conjunto en matemáticas. Lo po- 
demos definir como una serie de 
objetos del mismo tipo, pero a la 
vez distintos entre sí. Los elemen- 
tos pertenecientes a dicho conjun- 
to se dice que son sus miembros. 
(Ver diagrama sintáctico en figura 


3.) El formato general del conjunto 
en Pascal es: 


ТҮРЕ 
identificador = 
identificador; 


SET OF 


Matemáticamente, un conjunto 
se indica encerrando sus elementos 
entre llaves. En Pascal, por estar 
éstas reservadas a los comentarios, 
indicaremos un set encerrando en- 
tre corchetes todos los elementos 
que lo componen. 


Para aclarar las operaciones que 
se pueden realizar con los conjun- 
tos haremos las siguientes declara- 
ciones previas: 


TYPE 
colores = (rojo, violeta, azul, 
gris, marrón); 
colorpintura = SET OF co- 
lores; 

VAR 
colorcoche: colorpintura; 


Conjuntos de nuestro ejemplo 
serán: 


[azul. gris] 
[rojo, marrón, azul]... 


Si un SET no tiene miembros se 
dice que está vacío (SET o conjun- 
to vacío) y su representación es: [] 


Terminada esta introducción a 
la teoría de los conjuntos, entra- 
mos a ver las distintas operaciones 
que podemos realizar con este tipo 
de datos. Las básicas son: unión. 
intersección, diferencia, pertenen- 
cia e inclusión. Veamos detenida- 
mente cada una de ellas: 


Unión 


La unión de dos conjuntos re- 
presenta otro conjunto, el cual 
contiene los miembros de ambos. 
Matemáticamente esta operación 
se representa como A UB. En len- 
guaje Pascal, utilizaremos el ope- 
rador ‘+. 


Un ejemplo de unión podría ser: 


[marrón] + [gris, verde] = [ma- 


rrón, gris, verde] 


Intersección 


La intersección de dos conjuntos 
(A B)es otro conjunto que con- 
tiene los elementos que son miem- 
bros de ambos (A y B). El operador 
dc intersección para nosotros es 
‘+’. En los ejemplos antes defini- 
dos 


marrón, gris, violeta] * [azul, 
violeta, rojo] = [violeta] 


Figura 3 


—@ 


IDENTIFICADOR 


— = | TIPO ORDINAL 


Diferencia de conjuntos 


La diferencia entre dos conjun- 
tos À y B es otro conjunto, C, que 
contiene los elementos pertene- 
cientes a A que no están en B. Por 
ejemplo: 


[azul, marrón gris] - [gris, viole- 
ta] =[azul, marrón] 


Es decir, son los elementos del 
primer conjunto que no están en el 
segundo. 


Pertenencia a un conjunto 


Utilizaremos la palabra reserva- 
da IN para indicar la pertenencia- 
de un elemento a un conjunto. El 
resultado de esta operación o eva- 
luación será siempre TRUE o 
FALSE. 


como resultado TRU 


Operadores de relación 
para comparar conjuntos 


A=B indica igualdad entre los 
conjuntos À y B. 

A<>B indica desigualdad entre 
ellos. 

AZB indica que A contiene a 

A<B indicaquc A cstá inclui- 


doen B. 


El resultado de todas estas ex- 
presiones no puede ser otro que 
TRUE o FALSE. 


Para nuestros ejemplos: 


[rojo, marrón, violeta] > [viole- 
ta, rojo] es TRUE, ya que el pri- 
mer conjunto contiene todos los 
elementos del segundo. 


El programa 2 vacia un conjunto 
de elementos, llenando otro con 
todos los números primos conteni- 
dos entre dos y treinta 
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Programa 2 
PROGRAM CONJUNTO; 
CONST 
N=30; 
TYPE 
ENT= 1.30: 
PR, CR: SET OF ENT; 
NUM: ENT; 
1: INTEGER; 
BEGIN 


NU. 

REPEAT 
WHILE NOT (NUM IN 
CR) DO NUM: - NUM + 


Para terminar con este capítulo, 
veremos la ültima sentencia de 
control que nos queda, y que utili- 
za mucho las variables TYPE, de 
las que hemos venido hablando. 


Sentencia CASE 
Mediante la sentencia IF, tenía- 
mos la posibilidad de elegir una de 


entre dos alternativas posibles. 
Pero puede ocurrir que en un pro- 
grama deseemos elegir una alter- 
nativa entre varias (más de dos). 
En estos casos será necesaria la 
sentencia CASE. (Ver diagrama 
sintáctico en figura 4.) 


El formato general de la senten- 
cia es: 

CASE expresión OF 

el: tratamiento 1; 

e2: tratamiento 2; 


en: tratamiento n; 
END. 


Figura 4 


CASE — 


EXPRESION жег ору = 
— 


і 
М 


B SENTENCIA eno j= 
Y 
LOC ! 
O 


De esta forma, CASE selecciona 
aquella sentencia cuya constante 
sea igual al valor actual de la ex- 
presión. Si no existiera la etiqueta 
correspondiente, el efecto es inde- 
finido. Algunos compiladores tie- 
nen la opción OTHERS para el 
caso en que la etiqueta dada no 
exista. Con un ejemplo entendere- 
mos mejor esta sentencia: El pro- 
grama 3 efectúa una de las cuatro 
operaciones básicas, dependiendo 
del valor de una variable. 


Programa 3 


PROGRAM OPERACIONES; 
TYPE 
LIMITE =Ø.. 4; 
VAR 
OP: LIMITE; 
A,B,R:REAL; 
BEGIN 
READ (A, B, OP): 
CASE OP OF 


END: 
WRITE (EL RESULTA- 
DO ES: '. R) 


END. 


En el próximo capítulo hablare- 
mos sobre las matrices dentro del 
Pascal, así como de los registros. 


José R. Herreros 


GOSANEZ. dla (4 


PRINT Ат 24,4 ; GUSANEZ SOFT" 


aparecidos hasta ahora. 


Nüm. 1-250 pts. 

Cómo usar el microdrive/Progra- 
mación Basic/Ampliación Basicare/ 
Rutina despertador/Variables del sis- 
teme/Entrada datos mediante másca- 
ras/Protección del software/Sintoni- 
се su Spectrum/Programas. 


Núm. 3*250 pts. 

Novedades sonimag '84/Ampliando el 
Basic/Programas para ordenar pro- 
gramas/Gráficos con el VU-3D/Len- 
guaje Forth/Archivos en mierodrive/ 
Programación de un interface de im- 
presora/Programas. 


Num. 5*250 pts. 

Floppys para Spectrum/Diseño asis- 
tido por ordenador/64 Caracteres por 
linea/Juego de la vida/Pascal/Asi ha- 
cemos las portadas/Control de eva- 
luaciones/Programas. 


Complete su colección de 


Todospectrum 
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miento pixel a pixel/Utilización de 
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centronics/Programas de utilidad pa- 
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máquina/Análisis del editor de textos 
Tasword/Interfaces para impresoras/ 
Programas. 


Núm. 4-250 pts. 
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para el Spectrum/Comparación códi- 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascal/Pro- 
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Representación de funciones/Todos 
los caminos conducen a la ROM/Jue- 7 | 
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óptico/Programas de gestión. El SITI/ 

Logo: tortugas para todos/Interrup- 
ciones del Z-80/Programas, 
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AFADRIVE 


Entre la lentitud del cassetie y 
los precios exorbitantes de las uni- 
dades de diskettes, algunas casas de 
hardware han trabajado en una al- 
ternativa de compromiso. 

El Wafadrive es el resultado de 
los esfuerzos de Rotronics para 
conseguir un medio de almacena- 
miento con mejores características 
que el cassette. Una caja de color 
negro encierra dos unidades de al- 
macenamiento, una salida Centro- 
nics y un interface RS232. Los dri- 
ves utilizan un sistema de cinta de 
video en bucle sin fin, con una ca- 
beza de cassette (monaural) y ca- 
pacidades de 16, 64 y 128 K des- 
pués de formatear. 

A los lectores que conozcan el 
microdrive les resultará familiar la 
descripción del Wafadrive: existe 


un gran parecido entre los dos sis- 
tema de almacenamiento. El pro- 
cedimiento de ampliar el BASIC es 
el mismo en ambos, los nuevos co- 
mandos son muy parecidos y el sis- 
tema de almacenamiento es el mis- 
mo. Los dos periféricos son incom- 
patibles, ya que utilizan el mismo 
sistema de paginación. 

Si bien la velocidad de acceso no 
es muy grande, el sistema tiene 
grandes ventajas sobre el cassette: 
el ordenador realiza por nosotros 
la operación de localizar el princi- 
pio del fichero, cargarlo o grabarlo. 
y verificarlo. Veamos los princi- 
pios generales de funcionamiento 
de este periférico. 

El primer lugar, la cinta debe ser 
«formateada». El ordenador la di- 
vide en pequefios bloques, en cada 


Y de regalo 


un procesador de textos 


Siguiendo la tendencia de rega- 
lar programas a los compradores 
de ordenadores y periféricos, Ro- 
tronics adjunta al Wafadrive un 
cartucho de 16 K que contiene un 
procesador de texto (Spectral Wri- 
ter). Un programa de utilidad que 
nos ayuda a redactar trabajos, car- 
tas o documentos. El ancho de los 
documentos es de 64 caracteres, 
que permite la impresión a 80 co- 


lumnas dejando un margen de 8 ca- 
racteres a ambos lados del texto; 
tiene, en cambio, el inconveniente 
de que los caracteres son muy poco 
legibles en pantalla, al tener sólo 4 
pixels de ancho. 

La principal ventaja del Spectral 
Writer sobre otros procesadores de 
texto para Spectrum es su diseño a 
la medida: al haber sido construido 
pensando específicamente en los 


interfaces del Wafadrive, el usua- 
rio no tiene necesidad de "par- 
chear" el programa para que fun- 
cione con su impresora. Por esta 
misma razón, el código es muy 
compacto y permite documentos 
más largos (352 líneas de 64 carac- 
teres) que otros programas simila- 
res. 

Para introducir texto basta te- 
clearlo en la posición deseada. El 


Comandos Extendidos del 
Wafadrive 


CET x dp" 
Muestra el catálogo del 
cartucho d. 


CAT sd: 
Carga en memoria el di- 
rectorio del cartucho d, 


sin sacarlo por pantalla. 


CLEAR + 
Cierra todos los canales 
abiertos. 


CLOSE + flujo 
Cierra el canal especifi- 
cado. Si el número está 
entre 0 y 3, le devuelve su 
valor por defecto. 


CLOSE + + flujo 
Cierra el canal especifi- 
cado. Si estaba abierto a 
un archivo, éste se escri- 
be al cartucho y se actua- 
liza el directorio. 

CLS * 
Borra la pantalla y pone 
tinta negra, papel blanco 
y borde blanco. 


ERASE + “d: nombre” 
Borra un archivo del car- 
tucho; se puede especifi- 
car el nombre acabado en 
* para borrar los archi- 
vos cuyo nombre comien- 
za por las letras indica- 
das. 

FORMAT » “R”; 

dad 


veloci- 


uno de los cuales guarda 1 K de in- 
formación. Una vez realizada la 
división, el Wafadrive escribe y lee 
cada sector con datos aleatorios. Si 
la lectura es errónea, marca el sec- 
tor como defectuoso y no lo utiliza 
más. Una vez realizada esta opera- 
ción, la cinta queda en condiciones 
de uso. La ventaja de dividir en 
bloques el cartucho es que, de esa 
manera, es relativamente fácil lo- 
calizar el principio de un sector. 
Además, no hay peligro de destruir 
información en un bloque poste- 
rior si reescribimos un sector a una 
velocidad ligeramente inferior. El 
mayor inconveniente consiste en 
que un archivo tiene menos de 1 
K, ocupará 1 K en la cinta, ya que 
esta es la unidad mínima de infor- 
mación. En el caso del Wafadrive, 
el tiempo que tarde en localizarse 
un sector es, en el peor de los ca- 
sos, de 6,5 segundos para cartu- 
chos de 16 K y de 45 segundos 
para los de 128 K. Lógicamente, 
serán mucho menores en un caso 
promedio. Una vez localizado el 


programa escribe sobre el texto 
presente en pantalla. Si queremos 
insertar en el texto tendremos que 
abrir un hueco en la línea deseada. 
Existen dos comandos para ello: 
uno para añadir espacios en blanco 
en una línea y otro para separarla 
en dos. 

Otros comandos nos permiten 
avanzar a lo largo del documento, 
posicionarnos a final de párrafo, 


justificar una línea o un párrafo en- 
tero. El programa se encarga de que 
las palabras nunca queden a caba- 
llo entre dos líneas, y realiza, por 
defecto, la justificación del texto 
insertando espacios que ajusten el 
margen derecho. 

Junto a los comandos de edición 
existe la posibilidad de salvar, car- 
gar o mezclar textos a Wa/adrive о 
cassette, además de un comando de 


Fija la velocidad del INPUT + flujo; variables 
RS232. Lee variables del canal. 


FORMAT + “4: nombre" LIST *flujo, línea. 
Formatea un cartucho Lista el programa, empe- 
con el nombre indicado. zando en la línea indica- 
Borra todos los ficheros. da, al canal indicado. «M Е 

ezcla" el programa 


INKEY $ + flujo LOAD *d: nombre" BASIC indicado con el NEW | 


Lee un carácter del canal Carga el programa espe- que se encuentre en me- Borra el prgrama BA- 
SIC y desconecta el | 


y devuelve su valor. cificado; puede ser BA- moria. 


SIC o código máquina. MOVE + "d: nombre 1” 
LOAD + carga el primer ТО “4: nombre 2" H | 
programa de la unidad Copia el fichero 1 en el 2; | 
por defecto. el uso de * como nombre | 
permite la copia del car- | 


MERGE + “d: nombre” tucho entero. 


sector, la transferencia de datos se 
hacea 2 K caracteres por segundo, 
aproximadamente. 

Una vez formateado, cada cartu- 
cho tiene un archivo especial, lla- 
mado directorio. En él se almace- 
nan los nombres, tamaños y núme- 
ros de sector ocupados por los ar- 
chivos existentes en el Wafadrive. 
Este admite hasta 82 ficheros dis- 
tintos (16 en cartuchos de 16 K). El 
directorio es leído de la cinta al 
empezar a trabajar, y se actualiza 
cada vez que se va a escribir un 
sector. 

Los comandos de manejo de ar- 
chivos se basan en los del cassette, 
seguidos de un asterisco para dife- 
renciarlos de las órdenes referidas 
a éste. El nombre del fichero es de 
la forma «A: nombre», o «B: nom- 
bre», donde A o B se refieren a las 
dos unidades. Si no se indica la 
unidad el archivo será buscado en 
la unidad por defecto (normalmen- 
te A). Dos comandos extras son 
ERASE Y MOVE; el primero bo- 
rra un fichero y el segundo copia 


büsqueda de palabras. Sólo echa- 
mos en falta una opción de búsque- 
da y sustitución de palabras. 

Se pueden obtener copias con la 
ZX Printer o compatibles, así 
como con cualquier impresora Cen- 
tronics o RS232 (quizá con algún 
problema de cableado, ya que los 
conectores del Wafadrive -no son 
estándar); los caracteres gráficos 
de bloques del Spectrum pueden 


un archivo en otro. El comando 
ERASE *«A:ABC*» borra todos 
los archivos de la unidad A cuyo 
nombre comience por ABC. Los 
comandos citados se encargan de 
la grabación de programas y 
CODE. La opción de salvar varia- 
bles (existente en el cassette) no ha 
sido implementada en el Wafadri- 
ve, aunque puede simularse defi- 


niendo esa variable en ausencia de 
programa y salvándola como pro- 
grama. La llamada mediante 
MERGE la cargará de nuevo a me- 
moria. 

Para el manejo de ficheros in- 
cluye los comandos OPEN * y 
CLOSE, que se utilizan en conjun- 
ción con PRINT*, INPUT +e IN- 
KEY$*. El comando OPEN sabre 


ser utilizados para el envío de códi- 
gos de control a la impresora. 
Sin llegar a la calidad de equipos 


profesionales, fuera de las preten- 
siones de un ordenador como el 
Spectrum, este procesador de tex- 
tos nos ofrece la posibilidad de me- 
jorar la presentación de nuestras 
cartas y documentos, siempre, cla- 
ro está, que dispongamos de una 
impresora. Una muestra de que los 
usuarios, además de juegos, quie- 
ren que su ordenador sea una he- 
rramienta de trabajo. 


mc Me aM Lu U U U UU UU u "| 


Wafradrive, liberando 
la memoria reservada. 
NEW + 


Inicializa el Wafadrive, 

reservando alrededor de 

2 K para el sistema. 
NEW + 

Borra el programa BA- 

SIC sin desconectar el 

Wafadrive. 


OPEN + flujo, “canal” 
Abre y asocia el flujo y el 
canal mencionados. 

OPEN + + flujo, “Port” 
Abre el flujo especificado 
y lo asocia al port men- 
cionado. 


OPEN + є flujo, “d: nom- 
bre” 


Abre el flujo mencionado 
y lo asocia al fichero in- 
dicado. 

PRINT + flujo; 

datos, variables 
Envía los datos indicados 
al flujo de salida mencio- 
nado (previamente abier- 
to). 

SAVE + “d: 


“cadena”, 


nombre” 


LINE número 
Salva al ficherú' especifi- 
cado el programa BA- 
SIC. 

SAVE ж “d: nombre”, co- 

mienzo, longitud, dirección 
Salva código máquina. 
Opcionalmente se puede 
especificar una dirección 
para autoejecución. 


un canal a un fichero. Si éste ya 
existía, será abierto para lectura, y 
para escritura en caso contrario. Se 
puede imprimir o hacer INPUT de 
los archivos con sólo especificar el 
nümero de canal. Por ejemplo... 


OPEN * * 4, «a test» 
PRINT + 4; 1000 
CLOSE + *4 


NP 


SAVE + 
Usado en lugar de SAVE 
+, sobreescribirá automá- 
ticamente el archivo si 
existía uno con el mismo 
nombre. 


VERIFY + *d: nombre” 
Verifica programas o có- 
digo máquina. 


Crea un archivo y graba el nú- 
mero 1000. 


Posteriormente: 
OPEN #* 4, «a test» 
INPUT +4; п 
CLOSE**4 

Daa «n» el valor 1000. 


Las capacidades del Wafadrive 
no se limitan à sus cartuchos: la 
unidad incluye también un inter- 
face RS232 y otro Centronics. El 
primero es un interface serie muy 
utilizado para conexiones con mo- 
dems e impresoras, y es bidireccio- 
nal; el segundo es paralelo, sólo de 
salida y se utiliza para controlar 
impresoras. Se pueden abrir cana- 
les a los dos: OPEN + * 3, «c», y 
OPEN * * 3, «r», respectivamente. 
El RS232 requiere un FORMAT 
que especifique su velocidad de 
transmisión, ya que puede funcio- 
nar a casi todas las velocidades 
standard. 

Las comparaciones aunque 
odiosas, son inevitables, y algunos 
lectores que conozcan el /nterface 
1 se preguntarán qué ventajas rea- 
les aporta el Wafadrive sobre el 
producto de Sinclair. En primer 
lugar, podemos citar la presencia 
del Port Centronics, que falta en el 
Interface 1, y los dos drives. Por 
otro lado, el operativo del Wafa- 


IEESA MICROTERSA 


C/Miguel Yuste, 16 - 28037 MADRID 


Tel. 
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drive resulta más potente que el del 
Interface | en el manejo de archi- 
vos. 

Los puntos fuertes del Microdri- 
ve son la red local y la modulari- 
dad (de 1 a 8 drives); resulta, ade- 
más, algo más rápido, ya que utili- 
za una cabeza estéreo, grabando 


dos bits cada vez. El catálogo, en 
cambio, es mucho más rápido en el 
Wafadrive que en el Microdrive, 
ya que este ültimo no guarda el di- 
rectorio en memoria. Por contra, 
la cantidàd de RAM reservada por 
el operativo es bastante mayor en 
el Wafadrive que en el Interface 1. 


En resumen, ninguno de los dos 
sistemas resulta definitivamente 
superior al otro y el precio tampo- 
co marca grandes diferencias. Qui- 
zá la oferta de un cartucho con un 
procesador de textos por parte de 
Rotronics pudiera decantar hacia 
su lado a algün indeciso... 


«Copys? de pantalla 


Realizada la inversión de equi- 
par tu Spectrum con un interface 
tipo paralelo y una impresora de 
matriz de puntos, es muy probable 
que seas incapaz de obtener copias 
de la pantalla. Es una situación 
bastante desagradable, porque in- 
cluso la ZX Printer puede hacerlo. 
Afortunadamente, si tu impresora 
es capaz de operar en modo de 
imagen punto por punto (bit ima- 
ge mode) todo lo que necesitas 
para conseguirlo es este programa 
en código máquina. Ha sido escrito 
para usarlo con el interface Cen- 
tronics del Wafadrive, pero puede 
adaptarse a otros interfaces. 

La rutina enviará una copia de 
la pantalla (incluyendo las dos ül- 
timas líneas) a una impresora de 
matriz de puntos ajustada para 
operar en modo de imagen punto a 
punto. En las Epson MX70/MX80 
producirá una imagen en densidad 
normal de 108 mm de ancho, pero 
usando las Epson 


RX80/FX80/100 puede conseguir- claras y es más fácil ver lo que ha- ТОВ, А 

se además una imagen de 162 mm cen por si fuera necesario adaptar- LDC, 14 

usando el modo CRT Graphics. lasa una impresora no Epson. De INA, (С) 

n——————————— (AKA AS) 
FCO! ҒЕді QQ 8210 DEFB Й 
584 E ЕЛГЕ m nu ve 902 e. QQ 
FDDG CISAFE FEG6 CS 42240 SINGL PUSH BC 
FODS CDSFFE E EIGHT Gu L (RAT FEG? 3E1B Q239 LD „1BH 
FODS 3E1B LD  A.16H FEOS CD3FFE 0240 CALL PRINT 
FOCS СОЭҒҒЕ p CALL PRINT FEGC 3E45 9258 LD “к^ 
FDDB 3E41 @@7@ LD “Ағ РЕШЕ CD3FFE 0250 CALL PRINT 
FDDD CD3FFE 0080 CALL Br FE11 QQ . 9279 DEFB 9.0 
FDEQ 3Е03 9992 LD А8 ue 
FDE2 CD3FFE 0100 CALL PRINT FE13 QQ 0280. DEFB 0.0.8 
FDES CDZ6FE 118 CALL CRLF vu oo 
FDES @12@ RET FE16 ЗЕ@@ 9299 LO А.д@Н 
FDES ui 8130 DEFB 0.4.0,8.9 FE16 CDSFFE 0300 GALL PRINT 

ой QQ QQ FE1B 3EQi 9519 LD А, дін 
FDEE @@ 0149 СЕРВ 0.0.0.0. 0 FE1D CD3FFE 9329 CALL PRINT 
aa QQ QQ FE2Q 2100258 (330 LD  HL.BUFFE 

FDF3 3E1B 6158 NORMA LD , 18H FE23 8000 0549 ір „0 
FDFS CD3FFE %160 GALL PRINT ҒЕ25 7E 0354 PLP LD , (HL) 
FDF8 3E32 9179 р td FE26 CD3FFE @36@ CALL PRINT 
FDFñ CD3FFE — ei8a CALL PRINT FE29 23 9379 INC HL 
FOFO CD36FE @19@ CALL CR JI ҒЕ2А 10F9 9392 DJNZ PLP 
FEGG C9 аа КЕТ Е2С CD36FE 0390 CALL CR LF 


Con las impresoras Epson compa- 
tibles no debería haber problemas, 
pero en cualquier caso quedan su- 
ficientes espacios en blanco en el 
listado para permitir cambios o in- 
serciones. No obstante, si la impre- 
sora tiene menos de ocho puntos 
en su cabeza de impresión, habrá 
que transformar el programa radi- 
calmente. 

La rutina ha sido ensamblada 
para un Spectrum de 48 K, con la 
seguridad de que pocos o ninguno 
de los propietarios del Wafadrive 
tendrán la versión de 16 K. Su fun- 
cionamiento es bastante lento, 
puesto que la impresora necesita 
los datos en un formato totalmente 
diferente al usado porel archivo de 
imagen del Spectrum. Utiliza los 
256 bytes del buffer de impresora 
del Spectrum como área de alma- 
cenamiento temporal. Las instruc- 
ciones del comienzo del listado no 
son demasiado concisas (muchos 
CALL PRINT), pero al menos son 


la dirección FE6Ah en adelante, el 
código no necesitará ser modifica- 
do, a menos que vayamos a reubi- 
carlo. 

No es necesario que el Wafadri- 
ve esté activado para usar la rutina 
de copia de pantalla. Pero supon- 
gamos que lo esté. Después de ha- 
cer CLEAR 64975, introducir el 
código usando un cargador hexa- 
decimal. Grabar el programa con 
SAVE * "a: dump”, 64976, 0343 y 
luego verificarlo mediante VERI- 
FY * "a: dump" (la sintaxis del 
Wafadrive no necesita la palabra 
CODE). 

Es interesante fijarse en la su- 
brutina PRINT, ya que usa las ex- 
trañas instrucciones que requiere 
el Wafadrive. Como explica el ma- 
nual, las instrucciones IN se utili- 
zan incluso para enviar datos al 
port paralelo. El libro da ejemplos 
de cómo hacerlo en BASIC. Aquí 
las instrucciones están traducidas 
al código máquina. Así: 


ENS 
LO MEJOR 
DE PSION 


| a 


= 
= 
zi 
e 
= 
En] 


Cable Centronics 


La impresora no siempre es 
un capricho, especialmente si 
de aplicaciones "profesionales" 
se trata. Con el QL lo más sen- 
cillo es utilizar una impresora 
Serie, pero también puede utili- 
zarse las Centronics, siempre 
que disponga del interface ade- 
cuado. Serma comercializa el 
QL-Centronics con software in- 


QL-Ventas 


Las ventas del nuevo ordena- 
dor no parecen haber alcanzado 
las cotas previstas en el Reino 
Unido. Para el püblico inglés 
no hay todavía demasiado soft- 
ware que aconseje su compra. 
Conscientes de ello, Sinclair va 
a lanzar una campaña publici- 
taria cuyos costes se elevan a 
500.000 libras (poca cosa, sólo 
100 millones de pesctas). Y una 
suma adicional de 250.000 li- 
bras para las publicaciones es- 
pecializadas. (А nosotros no 
nos llega nada!) 

El resultado de esta inversión 
publicitaria será la venta de al 
menos 200.000 QL para este 
año en el Reino Unido. O al 


©? 


corporado, al precio de 12.500 
pesetas. 

Y más cables: el del joystick. 
Por el momento todos hablan 
de aplicaciones. pero ya existen 
diversos juegos que sin duda 


“agradecerán el complemento. 


Comercializados ¡igualmente 
por Serma, el precio es de 1.600 
pesetas. 


menos esos son los planes de 
Sinclair. 

Curiosamente, los analistas 
predicen mayores ventas del 
QL en España que en su propio 
pais. Habrá que esperar los re- 
sultados. 


Libros 


La primavera ya ha tenido en 
el Reino Unido el "florecimien- 
to” de una abundante literatura 
sobre el QL. En España ya son 
cuatro los libros sobre los que 
tenemos noticias. A los dos que 
comentábamos en el número 
anterior se unen ahora “Ргорга- 
mando con Sinclair QL” y “QL 
SuperBasic”, editados ambos 
por Indescomp. Texto intro- 
ductorio en el primer caso, y 
curso avanzado sobre el Super- 
Basic, en el segundo. El precio 
de cada libro es de 1.950 pese- 
tas. 


ESPERE GONZALEZ , NOLO VENDA 


НАУ QUE HACER UNA ÚLTIMA, 


k to WPN PIPER ? 
а =a. 
г o figures. 


EASEL: Lo mejor de Psion 


Comenzamos con este artícu- 
lo una serie dedicada al sofiware 
de Psion incluido en el precio 
del QL. En tanto estén disponi- 
bles las versiones en castellano 
de los programas, comenzare- 
mos por la descripción de Easel 
(versión 1.01). ünicas dife- 
rencias con la versión en caste- 
llano residiran en la traducción 
de los nombres de comandos, 
así como de una mayor veloci- 
dad de trabajo y capacidad de 


1 es un programa de grá- 
ficos profesionales. No nos s 
virá, por tanto, para reali 
bujo “artístico”; su misión es 
realzar la presentación de nues- 
tros resultados mediante gráfi- 
cos. Muchas personas lo encon- 
trarán de escasa utilidad, ya que 
este tipo de utilidades no resuel- 
ven una necesidad: la ercan. Las 
personas que realizan informes 
o trabajos en los que la presen- 
tación de tablas numéricas re- 
sulte importante, descubriran 
que al poco tiempo de usarlo les 
resultará difícil prescindir de 
sus posibilidades. Las "victi- 
mas" de sus documentos le 
agradecerán la mejora en la le- 
gibilidad de sus tablas. 

s mejores caracte- 
facilidad de uso. Su 


laf 


adaptación "en tiempo real" a 
todas las órdenes que recibe por 
el teclado, hace su manejo muy 
sencillo, ya que el efecto de 
cada acción es visible en panta- 
lla inmediatamente. Como los 
demás programas de Psion, la 
tecla Fl nos envía al menú de 
Ayuda (Help). donde se resu- 
men las instrucciones de una 
manera esquemática. 

Las teclas F2 y F3 son tam- 
bién estándar en los cuatro pro- 
gramas. La primera sirve para 
indicar. en la parte superior de 
la pantalla. un resumen de las 
instrucciones de manejo. Cuan- 
do esta ventana de "status" no 
está presente disponemos de 
más espacio para nuestros da- 
tos. La tecla F3 nos da acceso al 
modo "comando". que nos per- 
mite teclear órdenes. En modo 
de inserción podemos teclear 
texto. datos o fórmulas. La tecla 
F4 sirve para borrar un valor 
una etiqueta o un 
texto. abre una celda para 
insertar un nuevo valor a la de- 
recha de la posición del cu 
El movimiento del cu 
realiza mediante la tec A 
BULATE o bien de forma auto- 
mática tras la introducción de 
un valor. SHIF TAB mueve el 
cursor hacia la izquierda. 


numérico 


Desde el momento en que 
EASEL acaba de cargar en me- 
moria, el programa espera un 
valor numérico que ocupará la 
primera celda (etiquetadas por 
defecto con los nombres de los 
meses). Si respondemos con un 
número. habremos introduci 
el valor en la primera posición 
del gráfico. Si tecleamos unas co- 
millas, el programa esperará un 
texto. Después de pulsar EN- 
TER se nos da opción a mover 
el texto por la pantalla. pudien- 
do posicionarlo a voluntad. 

Se pueden cambiar las. eti- 
quetas de las celdas a voluntad. 
bastando para el'o el comando 
Edit Labels. Podemos borrar 
con F4, introducir texto nuevo 
y. si pulsamos TAB, pasaremos 
a editar la etiqueta siguiente. Si. 
en cambio, pulsamos ENTER. 
saldremos del modo edición. 

La representación por defecto 
se realiza en diagrama de ba- 
rras, pero tanto la forma de las 
barras como el fondo pueden 
ser elegidos a voluntad. Si nin- 
guna de las opciones nos satisf: 
ce podemos incluso disenar es- 
los elementos a nuestro gusto. 
A todas las opciones del progra- 
ma se accede mediante menús, 
lo que facilita su uso por pers 
nas sin conocimientos inform 
ticos. Los ocho formatos prede- 
finidos incluyen seis diferentes 
diagramas de barras. tres en 
sentido vertical v tres horizon- 
tales: un diagrama de lineas v 
una representación tipo tarta 
Sin embargo. las definiciones de 
barras y líneas se pueden cam- 
biar una por otra y mezclarse en 
el mismo dibujo. También- es 
posible representar varias figu- 
ras simultáneamente. El forma- 
to tarta resulta mucho menos 
flexible: sólo se puede represen- 
tar una figura. y en un formato 
ünico. 

Si queremos cambiar la re- 
presentación de una figura (v 
estamos trabajando con varias) 
basta teclear F3, Olddata y el 
nombre de la figura. Despues 
ЕЗ. Change y elegir si cambia- 
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mos barra, línea, papel, etc. En 
cada casi nos pide un nüme- 
ro; si tecleamos ENTER, se nos 
presentará una pantalla con las 
diferentes opciones. Siempre la 
última opción es un "?" Si ele- 
gimos ésta, el programa nos 


presenta un menú para que di- Como construir un gráfico 


senemos a nuestro gusto. 


Tas lu наг Como un ejemplo |año que coexistieron 
máxima potencia es cuando se del SO 95 EASEL, | las tres categorías. 
utiliza en conexión con ABA- supongamos que un Para Comentar, -s 
CUS. Una hoja de cálculo es un usuario quiere presen- teclea F3, N (Newdata) 
ütil muy potente para la mani- игеп forma gráfica la | y luego CATI prime- 
pulación de datos numéricos, perdida de poder ad» | та ales рата la que 
siendo 1а lala de vida” de ls quisitivo de tres distin- | introduciremos los 
presentación tabular su princi- tas categorias laborales | sueldos. A continua- 
pal inconveniente. Si una vez en su empresa. Para | ción, E (Edit) 1. (La- 
procesados los datos sc crea un ello serviría, por ejem- bels) Esto nos deja en 
fichero tipo Export desde ABA- plo, una gráfica como situación de modificar 
CUS, su importación a EASEL la figura 1, donde se | las etiquetas. El proce- 
limita el trabajo necesario para presenta el Indice de | so serta: F4 (Бона la 
la presentación visual a la elec- Precios al Consumo |antigua) Fl (nueva). 
$ bud (IPC) junto a la varia- | TAB (pasar a la si- 
Qon del formata; ción de los sueldos de | guiente), etc., hasta te- 
b de EXT las tres categorías para | ner las celdas necesa- 
Problemas de EASEL Por 3 E periodo «consen rias pan ео da- 
ERE 5.2 А o. Para facilitar la | tos. Volvemos a la pri- 
Mn шша зы comparación, se cam | merd elda оне 
bles Epson, por lo que, si se bia la escala de cada SHIFT TAB) y comen- 
à sueldo, de manera que | zamos a teclear el suel- 
puede elegir. una impresora con los tres sean iguales al | do bruto anual de cada 


estas características nos solucio- IPC de 1976, primer | afio. Una vez acabada 
nará la papeleta. Si ya disponía- 


mos de una impresora y no es 
de ese tipo, el problema se com- 
plica, no existiendo por el mo- 
mento una solución satisfacto- 
ria. 

Tampoco existe otra posibili- 
dad. si queremos copias en co- 
lor. que realizar una fotografía 
de la pantalla, ya que tampoco 
existe ningün programa de co- 
pia de pantalla para impresoras 
en color. Esperamos que, bien 
Psion, bien otras empresas, se 
apresuren a resolver este pro- 
blema. 

Existen programas que en- 
tran por los ojos. que nadie se 
puede resistir a utilizar. Si que- 
remos demostrar las posibilida- 
des g s del QL, éste es 
nuestro programa. Salvando las 
reducidas posibilidades de co- 
pia en papel, EASEL merece un 
diez 


ом 


n de salarios con Easel. 


Figura2. Ejemplo de "tarta", Sueldo por categorías 1976. 


Figura 3, Ejemplo de "tarta", Sueldo por categorías 1983. 


la serie se introduce la 
fórmula CATI = 
CATI / 1403168, que 
corresponde a hacer el 
sueldo de 1976 igual a 
1, y luego САТ! = 
CATI * 100, lo que 
iguala el sueldo de 
1976 al coste de la vida 
acumulado (1976 = 
100). 

Un proceso análogo 
se realiza con las re: 
tantes categorías profi 
sionales y finalmente 
se añade la gráfica del 


coste de la vida. Des- 
pués se teclea C 
(Change), L (Line) y se 
elige el tipo de línea 
deseado para esta gráfi- 
ca. El comando V 
(View) nos permite vi- 
sualizar el resultado, 
bastando editar el titu- 
lo y los nombres de los 
ejes para disponer de 
una gráfica de presen- 
tación impecable. 
Mediante este pe- 
quefio ejemplo hemos 
cubierto parte de las 
posibilidades de este 
programa. Se puede, 
además, resaltar el cie- 
rre del abanico salarial 
en el período conside- 
rado mediante otras 
dos representaciones, 
de tipo tarta, con los 
salarios de las tres cate- 
gorias en 1976 y en 
1983. Si, tras salvar a 
microdrive los datos 
anteriores, ejecutamos 
el comando Zap, ten- 
dremos nuevamente la 
pantalla limpia. Edi- 
tando las etiquetas 
como CATI, CAT2 y 
CAT3, e introducien- 
do en las celdas los va- 
lores del salario en el 
ano 1976, bastará ha- 
cer View, respondien- 
do ENTER y 7a los re- 


Gráficos para representar todo tipo de funciones. 


querimientos del pro- 
grama. Con esto que- 
dará realizada la figura 
2. La figura 3 es análo- 
ga, pero sus datos se re- 
fieren al año 1983. 
Mucho más presenta- 
ble que una masa ilegi- 
ble de nümeros, que 
nadie, a menos que sea 
imprescindible, querrá 
mirar. 

La figura 4 responde 
a otro tipo de aplica- 
ción: la representación 
de funciones. Un cam- 
po propio de estudian- 
tes y profesores, inge- 
nieros, etc. En este 
caso hemos representa- 
do una distribución de 
gauss y su derivada (no 
a escala). Para realizar- 
la se utilizaron 67 va- 
lores. Tras introducir 
las etiquetas para 67 
puntos, se teclea la fór- 
mula: 


gauss = exp 
(-(cell-30) 2/10) 


y el dibujo aparece 
ante nuestros ojos. 
Añadiendo: 


deriv = -2x(cell- 
30)/10«gauss) 


creamos la representa- 
ción de la derivada. 
Con ajustar la escala y 
los formatos, hecho. 
Como puede verse, 
crear un gráfico con 
Easel resulta tan rápi- 
do como sencillo. Sin 
duda, una de las mejo- 
res armas de Sinclair 
para la promoción y 
venta del QL. En el 
próximo nümero vere- 
mos cómo aprovechar- 
le mejor mediante la 
utilización del Abacus. 


z 
Ed 
= 


SONIDO 


El QL nos propor- 
ciona un generador de 
sonido que, aunque ru- 
dimentario, supera 
apreciablemente las 
posibilidades musica- 
les del Spectrum, ya 
que el uso del segundo 
procesador permite 
emitir sonido mientras 
Se ejecuta un progra- 
ma. El control del alta- 
voz desde el BASIC se 
realiza mediante un 
solo comando (BEEP), 
que puede tener hasta 
8 parámetros. El efecto 
de una pequeña varia- 
ción en sus valores re- 
sulta a veces imprevisi- 
ble, por lo que el pro- 
pio manual nos reco- 
mienda la experimen- 
tación como mejor mé- 
todo para descubrir 
qué se puede hacer con 
elaltavoz del QL. 

El BEEP se puede 
utilizar como en el 
Spectrum, aunque los 
valores de duración y 
tono no muestran una 
equivalencia, Donde 
las cosas empiezan a 
cambiar es con la posi- 
bilidad de ańadirle un 
segundo tono a la lista 
de parámetros. En ese 
caso la frecuencia del 
sonido oscilará entre 
los dos tonos, tardando 
un tiempo proporcio- 
nal a los dos paráme- 
tros siguientes, grad-x 
y grad-y. Los tres pará- 
metros siguientes re- 
sultan aún más esotćri- 
cos. En un próximo 
nümero intentaremos 
aclarar su función. 

Si la duración espe- 
cificada es cero, el or- 


denador seguirá sonan- 
GI6 


CON QL 


do para siempre o has- 
ta que ejecutemos 
BEEP sin parámetros, 
lo que para el altavoz. 
Para permitirnos sin- 
cronizar la ejecución 
de programas existe 
una función (ВЕЕ- 
PING) que devuelve 
uno si el QL está emi- 
tiendo sonido. 
Incluimos un peque- 
ño programa que de- 
muestra las posibilida- 
des sonoras del QL, se 
trata de aprender sol- 


feo con ayuda del QL. 
El programa pedirá el 
tono y la duración de 
cada nota, hasta 45; las 
dibujará en un penta- 
grama y, al finalizar, 
interpretará la melo- 
día. 


El tono de cada nota 
se introduce tecleando 
el nombre: do, re, mi..., 
aunque en la partitura 
la nota más baja es 
"re" y la más alta el 
"do" de la octava si- 
guiente. En cuanto a la 
duración, 1 correspon- 
de a una negra, 0.5 a 
una corchea, 1,5 a una 
negra con puntillo, 2 a 
una blanca, 3 a una 
blanca con puntillo y 
cuatro a una redonda. 
No se admiten otros 


valores. El programa 
lemporiza las notas 
mediante PAUSE. por 
lo que no debemos 
mantener ninguna te- 
cla pulsada durante la 
interpretación. 

Un programa senci- 
llo que nos permitirá 
aprender solfeo a la vez 
que регѓессіопатоѕ 
nuestra programación 
en SuperBasic. Para 
que luego digan que el 
QL no sabe hacer mi- 
sica. 


Renar! OL Musical 
[m 
Remari. ic) Diriemb 
MODE GzWINDOW зав, 
ELS:CSIZE S, IrUNDER 11 
PRINT:ERINT "è билеген In 
SS=TNKEYS (LIE + 


KADRA n el 
3 partitura posicion ы 
areas ады 

km 
TE andor asas: 


XIT cargador 


acteres espa- 


АТ I7 SIRINI U ENTER? oire as dosi" 5 caractere 
о ORA AS A Se han xm e instruc- 


IF nota (а) INSTR "doremifasalasiz" 
ELSE 60 TO 240 
END IF 
IE nat. 
о IE nat. 

IF notas(a)= 
IE natas (a)="f. 
IF notas(aj= 
IF natas 
IE notas(a 
IF notas (a) 
deduracion(al 
SELect ON d 

=: 51 Longitud (a! 


zbite а) =2гүһ=2 
n ipitenta) 219: 
өрені те 
ha 
cargador 


=3:longi tud (a) 
Жаз Longi tua (2) 50 
IPEMAINDER +60 TO тос 


FALSE longitudia) 
(553 

END REPeat cargador 

AT 17.5:CLS SPRINT "Cualquier tecla para tocar“ 
PAUSE 


dtross-0: paeieton-7o 
FOR bl TO a 
across=acroms+101 IF acros 
INK TILINE acri 

ВЕЕР —1 „pitch 
PAUSE longitud (b) 
BEEP: INK 4:LINEJR TO -5,0 

END FOR b 

INK 2 

BT 17,3:CL8 S:PRINT "Cualquier tecla para tocar" 
PAUSE 

50 TO Seo 

REMork Krerkt iun 

Define PROCedure partitura (posición) 

Local а 

FOR а-0 TO 16 STEP a:LINE 0,posicion* TO Y 
END DEFine partitura 

REMark rrxim re Ea Yann 

DEFine PROCedure dibu nota (hid) 
Across=across+1011F acrose-leD:acrote" lOrposi cionspovicion-TSipartitues posi 


1on*atEND ған a 


770 ОМ d=1:FILL IsCIRCLE across posicion 
across+2,posicionth+12 
780 ON dLZYCIRCLE across.posicion+h,2rLINE acri 


ILL бишне эсге 


position^h TD acros 


¡CIRCLE across ,posieion+h,2:LINE aci 


posicionth TD aeron 
ILL I:CIRCLE across+5,poslcion*14h, 1; у 


ctonrh TO 


830 END SÉLect 
вдо END DEF ine 

Goo REMark Pvaer ie Enden 
вео perine PruCedure instrucciones 
870 LOCA) i, 3 ат 

880 as= "Eute programa aceptará 45 notes y las witudri en wr 
as recorren una octava y son, por orden ascendentes re. ms 
Una negra corresponde a la duración | 


NIER después de elegir la nota y despues dle la 


AT sao 
For 1-1 TD LEN (eS) 
REFeat palabra 
Е Тын 
PRINT taso шісі), 


EXIT palabra 
tmo aF 


Bi EIS RINT 
END DEFine instr o 
pro 
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INMEDIATAMENTE 
DISPONIBLE. 


ESPECIFICACIONES 


MODELO: 

CUB 1451/D03 

14" QL MONITOR 
Entrada RGB-TTL 
Resolución (PIXELS) 
653 (H) х 585 (V) 

DOT PITCH 0,43 mm 
Bandwidth 18 MHz 
Especificamente diseñado 
para el QL que 
aprovecha su facilidad 
- única de 85 columnas 


№ mod. 1451/003 
Р.У.Р. 96.000 Ptas, 


Ж 


DISTRI 


AN ` Y^ 
IBUIDO EN EXCLUSIVA POR: MULTILOGIC, Р.о de la Habana. 145. 28036-MADRID Tel. 458 74 75 


envía el byte en el acumulador al 
port 14 


LDB,O 
LDC,10 
IN A, (С) 


manda un pulso de sincronización 
(strobe) al port 10 


LD B, 20h 
LDC, 10 

IN A, (C) 
cancela el strobe 


En lo concerniente al sofiware, 
este es un modo de hacerlo tan 
bueno como cualquier otro, la ex- 
centricidad está en el hardware. 


Otros interfaces 


Para otros interfaces paralelos 
habrá que olvidar la rutina 
PRTER y colocar en el vector 
PRINT (FE40h y FE41h) la direc- 
ción de tu propia rutina de impre- 


Ejemplo de «copy» de pantalla. 


sión. La mayoría de los interfaces 
comerciales de tipo Centronics in- 
cluyen en su ROM un corto pro- 
grama equivalente a nuestra su- 
brutina PRTER. 


Las impresoras 


Imprimir en modo de alta reso- 
lución gráfica implica pasar a la 
impresora una serie de paráme- 
tros, que son entregados en el mo- 
mento oportuno por tres subruti- 


FE2F Сі 64989 POP BC FEB1 Q? 
FE3Q C9 valo RET FES2 97 
FES1 @42@ DEFB 0.0,0,0,0 FESS 97 

92 oo QQ QQ FE54 07 
FE36 3EQD 4434 CRLF LO  4.6DH FEOS BS 
FE38 CD3FFE 9448 CALL PRINT FEBS 6F 
FESB SEGA 0450 LD А, дан РЕЗ? 78 
FE3D QQ 9452 NOP FES8 E601 
РЕЗЕ C9 6470 RET ЗА 97 
FESF C342FE 0489 PRINT JP PRTER FESB 47 
FE42 CS 4438 PRTER PUSH BC FESC B4 
FE43 FS 9529 PUSH АҒ FESD F649 
FE44 F5 9519 PUSH АҒ FESF 6? 
FE4S 919204 0520 LD BC,2 РЕЗ@ CS 
FE48 ED78 9530 ROY IN А, (С) FE91 Q608 
FE4A CBer 9549 BIT S.A FE93 ES 
FE4C 28FA 9550 JR —Z,ROY FE94 1560 
FE4E F1 0550 POP AF FE96 3808 
FE4F 47 8570 LG В.А ҒЕ98 4E 
FESO GEGE G584 LD Cis ҒЕ99 58 
FES2 Е078 9590 IN А, iC) РЕЗА С839 
FES4 9690 6 LD Bo FESC 10 
FES6 QEGĄ 8519 LD C10 FE9D 201 
FES6 ED78 4620 IN А, (С) FESF СВ12 
FESA C5 2530 PUSH BC FEAL 24 
FESB C1 9548 РОР ВС FE&e 30 
FESC 0624 9558 LD B.20H FEAS 2923 
FESE QEQñ 2652 LD  C.10 FEAS 7А 
FESO ED?8 4570 IN А, (С) FEAS 007700 
FE62 F1 9588 POP AF FEAS 0023 
FE63 Ç1 9699 РОР BC FEAB El 
FEG4 СЭ @7@@ RET FEAC 1дЕ5 
FE6S QQ 9719 DEFB 0.0.0.0, 0 FERE Ci 

92 QQ QQ ec 
FEGA CDD3FD 0720 SING CALL EIGHT FEBO QÇ 
FEGD 0600 9732 LD в.% ҒЕбі 79 
РЕБЕ QEQQ 9749 COOR1 LD C,Q ҒЕБ2 ҒЕ4Ә 
FE?1 00219056 4750 LD IX.BUFFE FEB4 38BF 
FE75 79 0760 COOR2 LD A.C FEBE С095ҒЕ 
ҒЕ?6 CBSF 0770 SRL A FEBS 44 
FE?8 БР 9789 іс LA РЕВА 94 
FE?9 78 9799 LO A,B FEBS 78 
РЕ?А E63Q 9802 AND 30H FEBC FE3Q 
FE?C QF 9819 RRCA FEBE 38AF 
БЕЛ 05 н Ев аз 
FE?F EGOE 9849 AND ФЕН 


nas: EIGHT, NORMA y SINGL. 
Entre cada una de ellas se interca- 
lan los suficientes NOPs para per- 
mitir hacer cambios. 

Si tu impresora no ha sido ajus- 
tada para dar un /inefeed automá- 
tico (avance de la línea de impre- 
sión), deberás cambiar la instruc- 
ción NOP en FE3Dh por un 
CALL PRINT. 

Para copiar la pantalla con la 
impresora, hacer un RANDOMI- 
ZE USR 64976. (Sin olvidar que el 
código máquina tiene que estar 
por encima del RAMTOP.) Como 
consecuencia de la forma en que 
trabaja el Spectrum, las dos ülti- 
mas lineas quedarán en blanco. 
Esto se puede evitar llamando a la 
rutina desde dentro de un progra- 
ma. 

La creciente producción de apli- 
caciones que realizan gráficos hace 
que este corto programa pueda re- 
sultar muy útil a los poseedores del 
hardware necesario. 


2559 RLCA 

2560 RLCA 

9879 RLCA 

4880 RLCA 

9399 OR L 
9908 0 LA 
9919 LO ÀB 
2320 AND 1 
9330 RLCA 

2549 RLCA 

9959 OR H 

OR дән 

9579 LO HA 
2389 PUSH BC 
9999 р Б 
1900 ROTAT PUSH HL 
1919 iD Da 
1020 LD AS 
1938 F2 LO саң 
1048 LD Ев 

1959 F3 SRL C 
050 DEC E 
1070 JR  NZLFS 
1082 RL D 
1999 INC H 
1180 DEC A 
1119 JR  NZ,F2 
129 ib b 
1139 LO (IxeQ).A 
1148 INC IX 
1159 POP HL 
1152 DJNZ ROTAT 
1179 POP BC 
1189 IN Ç 
1199 INC Č 
1200 W AC 
1218 CP 64 
1220 JR C cooR2 
1230 GALL SINGL 
1249 ING B 
1258 ING B 
250 LO ÀB 
1279 CP 48 
1288 JR — C.CODRi 
1299 CALL NORMA 
1398 ВЕТ 

1518 END 
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Desplazamiento 
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a Pixel 


N el nümero 2 de TODOS- 
E PECTRUM se invitaba a 
los lectores a comentar un 
WEN programa del citado ejem- 
plar. Y hubo quienes. no 
contentos con lo que se ofrecía, de- 
cidieron modificarlo para dotarlo 
de una mayor potencia. Tal fue el 
caso de Alvaro Mateos que nos en- 


vió dos rutinas inspiradas en aqué- 
lla. 

La primera de ellas (Listado 1) 
permite el control de SPRITES 
con sus atributos, innovación no 
presente en nuestro programa. La 
hemos probado y nos ha parecido 
muy interesante. Ahora comparti- 
mos el hallazgo con nuestros lecto- 
res, y aprovechamos para guiarles 
por el mundo siempre apasionante 


de la programación en ensambla- 
dor. 


Mencionaremos rápidamente el 
modo de acceder a la rutina. Será 
mediante la instrucción 
INK u: PAPER v: RANDOMIZE 
x AND y zc — USR dir, donde 


u y v son números entre 0 y 7, 
los que deseemos para el gráfico a 
imprimir. 

. X e y son coordenadas del extre- 
mo superior derecho del gráfico a 
imprimir. 

c es el CODE del gráfico: ASCII, 
carácter gráfico o UDG. 

dir es la dirección de la subruti- 
na (por cierto, es relocalizable). 

Si desea conocer más detalles les 
remitimos al citado ejemplar de la 
revista. 


iSTKENM 


MES. HL 
D), HL 


BU 


EQU 


Descripción del programa 


Lineas 9-10: Guardaremos en el 
stack la dirección del puntero de 
pila del calculador, con objeto de 
devolver su valor ini al volver 


al BASIC. 


Lineas 11-16: Comprobaremos 
si la pila del calculador guarda los 
tres números correspondientes a 
las coordenadas y al código del ca- 
racter. Teniendo en cuenta que di- 
chos números se almacenan en for- 
mato de punto flotante, y que cada 
uno de estos números ocupa 5 bits, 
sólo tendremos los citados tres nú- 
meros si el stack tiene una longi- 
tud de 15 bytes. 

Si no ocurriera de este modo, de- 
tendríamos el programa dando un 
mensaje de error. Con este objeto 
llamamos a la rutina de dirección 
8 (rutina en página cero, por tanto 
usaremos RST y no CALL). El si- 
guiente Әуе guardará el código de 
error a generar. 

Línea 20: La subrutina de ROM, 
FP-TO-BC (2DA2H), a la que he- 
mos llamado POP-A, tiene la mi- 
sión de almacenar en BC el ültimo 
nümero de la pila del calculador. 
También se encargará de actuali- 
zar el puntero de pila. 

Ya hemos comentado que dicho 
nümero está en formato de punto 
flotante (FLOATING | POINT, 
FP). Consecuentemente solamente 
será posible esto en el caso de que 
su valor esté comprendido entre 0 
y 65535. El Acumulador también 
guarda una copia del byte menos 
significativo. Como éste es el único 
que nos interesa, solamente hare- 
mos uso del registro A. 

Linea 21-27: El código de carác- 
ter, almacenado en A, se analiza 
para ver a cuál de los siguientes 
grupos pertenece: 

— Caracteres ASCII (entre 64 y 
127). 

— Caracteres 
128 y 143). 

— Caracteres definidos por el 
usuario UDG (145-164). 

No se realiza una comprobación 
muy exhaustiva de los posibles va- 
lores, por lo que cifras por debajo 
de 63 o por encima de 165 dará re- 
sultados impredictibles. 

Las medidas a tomar en el caso 
de caracteres ASCII o UDG, son 


gráficos (entre 


dobles: Almacenar en DE las di- 
recciones de comienzo de las ta- 
blas de caracteres. (En realidad se 
utilizan ligeros apaños que facili- 
tan los cálculos). Líneas 29 y 26 
respectivamente. Y, en segundo lu- 
gar, calculamos la dirección donde 
vamos a encontrar la información 
del gráfico que nos ocupa. Para 
ello multiplicaremos el valor del 
código (restando 144 en el caso de 
un ООС) por ocho. Esto se consi- 
gue duplicándolo tres veces. Por 
ültimo sumaremos con DE, con lo 
que ya tendremos la dirección 
exacta. (Líneas 30-35), 

En el caso de caracteres gráficos, 
los perfiles no se encuentran en 
memoria, pues son calculados por 
una rutina, que hemos llamado 
SYNTB. Dicha subrutina 
(OB38H), situada en ROM, deja 
en los 8 primeros bytes de MEM- 
BOT (área auxiliar del calculador) 
las “rebanadas” del carácter gráfi- 
co cuyo código se almacena en el 
registro B. 


Cargaremos en HL la dirección 
del primero de los bytes, como en 
Otros casos. 

Línea 40: En esta linea conver- 
gen las tres variantes. Antes de al- 
macenar HL en IX, sumaremos 8 a 
este primer registro, con objeto de 
apuntar al ültimo byte de la mini- 
tabla que define el gráfico. ¿Por 


Se mejoró la rutina, 
incorporando el control de 
Sprites con sus atributos 


qué? Pues porque vamos a dibujar 
el gráfico de abajo a arriba. 

Líneas 44-49: Este es el momen- 
to de recoger los datos de las coor- 
denadas, almacenadas en la pila 
del calculador. Tras hacer algunos 
juegos de malabares con los regis- 
tros, se almacenarán definitiva- 
mente en el par HL, “х” еп Ше “у” 


en H. Transferiremos su contenido 
a BC (líneas 50. у 51). Con este 
dato, la rutina PIXEL (de ROM, 
22AAH) devolverá HL con la di- 
rección del área de pantalla que 
corresponde a las coordenadas da- 
das. El contenido A hace referen- 
cia al bit correspondiente al pixel 
indicado. Exactamente A es x mó- 
dulo 8. Restamos 8 de A (luego ve- 
remos porqué), y almacenamos el 
resultado en B (líneas 55-58). 

Si inicialmente A hubiera estado 
a 0 (el pixel apuntaba al bit 7), no 
será necesario hacer rotación algu- 
na. La comprobación se realizará 
en las líneas 60 y 61. Si así ocurrie- 
ra, iríamos directamente a STO- 
RE. 

Líneas 65-66: En otro caso, el 
caracter a imprimir estará a caba- 
llo entre dos bytes. Por tanto será 
necesario crear una máscara de 16 
bits. Usaremos para ello el par HL. 
Almacenando la “rebanada”” del 
caracter en L, y poniendo H a 0, 
rotaremos el registro tantas veces 


h па raataa un рудата 


pasłrum 9 SIM 


2139:1973 34, eon 


la со calidad para sar 
comercializado, 19320793 la 53:a731193 
9,999 ¿la 2183, 2919 


nas O] 


211429 da 755211133 


por su explotación. 
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como haga falta. ¿Cuántas? Las 
que almacena el registro B tras las 
anteriores manipulaciones. 

Lineas 67-70: Las rotaciones se 
harán a base de sumas (tengamos 
en cuenta que desplazar los bits a 
la izquierda supone doblar el con- 
tenido de un registro). 

Lineas 71-79: La máscara cons- 
truida en HL se pasará a DE y se 
superpondrá al contenido actual 
de la pantalla, mediante un XOR 
(equivalentea OVER 1). 

Lineas 84-92: Ahora toca el tur- 
no de actualizar la dirección a 
donde se va a mandar el siguiente 
dato. Mientras no se cambia de 
renglón, la ley de variación será el 
decremento del registro h (esto es 
restar 256 a la dirección) —re- 
cordemos que estamos escribien- 
do el caracter de abajo a arriba—. 
En estos casos iremos directamen- 
te a NPAL. 

Pero al hacer un cambio de ren- 
glón tenemos complicaciones. Si 
cambiar de linea supone cambiar 
de "área" (es del dominio publico 
que la pantalla esta dividida en tres 
bloques), el cambio anterior no es 
válido. Mientras que el byte alto de 
la dirección permanece inalterado, 
el bajo hay que decrementarlo en 
20H. Si se trata de un cambio de 
renglón simple, será necesario su- 
mar 7 al byte alto (8 en nuestro 
caso, pues ya le habíamos quitado 
1) y restar 20H al bajo, como en el 
caso anterior (líneas 94-102). 

La pregunta es ¿cómo sabremos 


que hay un cambios de renglón o 
de bloque? 

El cambio de línea tiene lugar 
sólo en los casos en que H contiene 
los valores hexadecimales 3F, 47 o 
4F. Ver líneas 86-90. 


La segunda subrutina 
permite conocer los atributos 
correspondientes a un pixel 
dado 


El cambio de renglón supone 
además, cambio de bloque si L está 
comprendido entre 00 y IFH. 
Como en cualquier caso será nece- 
sario restar 20H a este registro: lo 
tenemos muy fácil. Realizamos la 
operación, y si el resultado tiene 
signo negativo (el carry flag está en 
1), es porque cambiamos de blo- 
que. En este caso debemos devol- 
ver a H su antiguo valor (líneas 
100-120). 

Líneas 103-104: Ya estamos 
preparados para pelearnos con el 
siguiente dato. Incrementamos el 
puntero que lo selecciona y dismi- 
nuimos en una unidad el registro 
C, que hemos usado como conta- 
dor de líneas. Incialmente se le ha 
dado el valor 8 en la línea 56. 
Cuando llegue a 0, será momento 
de ocuparnos de la actualización 
de los atributos. 


Igualmente usaremos C como 
contador, aunque en este caso se- 
rán dos el nümero de iteraciones 
(linea 106). 

Líneas 107-113: A partir de la 
dirección de la “rebanada” más 
alta del gráfico, calculamos la di- 
rección de los atributos correspon- 
dientes a dichos puntos. 

Lineas 114-117: Introducimos 
en esta dirección el valor corres- 
pondiente a los atributos actuales. 
Por regla general el gráfico ocupa 
dos bytes. Por eso también lo in- 
troducimosen el siguiente. 

Repetimos el proceso para la 
"rebanada" más baja, con los datos 
anteriormente almacenados en el 
stack. 

Por ültimo, antes devolver al 
BASIC, dejaremos el puntero de la 
pila del calculador en su valor ori- 
ginal (línea 121-122). 

Alvaro Mateos también nos ha 
remitido otra subrutina que permi- 
te conocer los atributos correspon- 
dientes a un pixel dado (Listado 2). 
Para utilizarla se escribirá: 


RANDOMIZE x AND y = USR 
dir 

El valor de los atributos aparece- 
ráen una de las variables del siste- 
ma no empleadas, la que se en- 
cuentra en la dirección 236814 
(5C81H). 

Con ello finalizamos —por el 
momento— el apasionante tema 
del “Deplazamiento pixel a pi- 
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@@@@1 
00002 


йі 
тай” 


HOUER HL, (ZTKEMDU 
HL 

DE,HL 

HL, (5ТКЕОТ) 
ЕС,ФФ ФИН; 
HL, EC 
HL.DE 
2, АЯСЕРТ 
Da 

18H 


PORA 
В.А: 


PUSH BC 


5 
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Coord x 
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Rellena este cupón 
Deseo recibir contra reembolso 
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BYTE COMPUTER E.T.I. S.A. 
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por 
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MADRID 
(91) 733 96 62 


BARCELONA 
(93) 3014700 


I SORPRESA! 


Erase una vez un viejo hurańo y ha- 
aposo al que todos llamaban Garga 
mel.. En realidad, en este juego no apa- 
rece este personaje, pero sí un enorme 
pitufo con preciosos tonos azulados 
que ha de recorrer incansablemente.un 
laberinto, a fin de recoger el mayor ná- 
mero posible de pitufofresas, robadas 
por el malvado Gargamel. 

El programa consta de tres listados, 
todos realizados en BASIC. Sin embar- 
go, ünicamente el ültimo contiene el 
juego propiamente dicho. Los anterio- 
res preparan diversas pantallas de car- 
ga, de gran calidad, y han supuesto mu- 


PAPER С 


1 POKE 23659,0 67 DRAW -2 2 84 PLOT 90,40: DRAW 3,12 

2 REM W 4,-1: DRAW 4,0: DRAW 2 DRAW 5 DRAW DRAW -1, 

3 POKE 25659,2 3,1 : DRAW 

10 GO SUB 180 bB DRAW 1, DRAW 8, DRAW 4 zo 


POKE 25659,0: POKE 25659,2 11: DRAW 4,0 

20 60 SUB 49 DRAW DRAW 4,-1: DRAW ркан 5,2: DRAW 4,1 

25 PRINT ІМК " PULSE PLAY": 2,0: DRAW DRAW 2,0: DRAW 0, 
LOAD "2" 70 DRAW DRAW 5,4: DRAW 9, 44: DRAW 1,4: DRAW 

26 REM E 

28 STOP 71 DRAW 89 PLOT 90,55: DRAW 10,1: DRAW 

35 PAPER O: CLS BORDER О 72 DRAW 2: DRAW 2,3: DRAW 4, DRAW 

36 POKE 23659, C POKE 23659,2 73 DRAW 2, DRAW DRAW 4, 

38 PAPER О: BORDER О: INK 7 -4,-6 90 DRAW 

43 РАРЕК Q: BORDER О: PRINT 7^ DRAW 91 PLOT 5 DRAW 10,1: DRAW 
w INK 7 DRAW DRAW 4,1: DRAW 

75 DRAW DRAW -6,-2 DRAW DRAW 4,2: DRAW 2 
A RAW 5,-6 

44 PRINT INK PE DORA a, PLOT 90,54: DRAW 10,1: DRAW 
- 625575 DRAW 2,5: DRAW 4,1: DRAW 

45 PRINT INK 77 DRAW -2,7: DRAW -7,4: DRAW DRAW 2,1: DRAW 4,2: DRAW 2 


DRAW -2,-12: DRAM -1,9 


46 PRINT ІМК PLOT 100,44: DRAW 1,6: DRAW 


DRAW — 
47 PRINT ІМК [LLL DRAW 1,8: DRAW 
.. DRAW -5,0 
АВ PRINT INK ТАТ 2,145" Шви" DRAW 
a" DRAW - 
49 PRINT ІМК 63AT 3,14," == mmm 96 FLOT 144, DRAW 
E 14,1: DRAW O, DRAW -14, 
50 PRINT ІМК ғғғ 97 FLOT 146,78: DRAW 0,7: DRAW 
тағ” DRAW DRAW 4,1: DRAW 
Бі PRINT INK SzAT DRAW 0,-9 
ИП 


98 PLOT 148,78: DRAW 0,7: DRAW 
3: DRAW 2,1: DRAW 4,1 

99 PLOT 140,80: DRAW 1,18: DRA 
W 26,4: DRAW 17,-4 


bO INK 7: PLOT 0,140: DRAW 255 


‚о 100 DREW -17,4: DRAW DRA 
6i PLOT 0,3442: DRAW 295,0: DRA W 0,-18 
W 0,1: DRAW -255,0 101 DRAW 3 DRAW 5,-4: DRAW 


62 PLOT 0,170: DRAW 255,0: DRA ZE DRAW 


DRAW -255,0 


3 w -12,-10 DRAW DRAW 2,1: DRAW O 
PLOT 0,173: DRAW 255,0 SOC RAM DRAW 
64 PLOT 0,0: DRAW 0,175: DRAW АЯ DRAW DRAW - 
255,0: DRAW 0,-175: DRAW -255,0 EET DERM 
65 PLOT 0,110: DRAW 20,6: DRAW AM -4,-2 DRAW DRAW 9,0: DRAW 1 
4,3% DRAW 2,3 81 DRAW DRAW DRAW 1,5: DRAW S, 
86 DRAW 4,2: DRAW 12,2: DRAW 3 W 
DRAW 5,11: DRAW 6,0 


DRAW 1, DRAW 2,0: DRAW 1 


chas horas de trabajo, como puede ver- 
se en los listados. Pero no son necesa- 
rios para el cuarto y ültimo programa, 
por lo que si "quieres ir al grano", pue- 
des empezar directamente por el últi- 
mo. 

Las pantallas 1 y 2 corresponden al 
primer programa (aunque en la prime- 
ra aparece el mensaje “Pulse “1”, en 
realidad se puede presionar cualquier 
tecla). La pantalla 2 muestra a modo de 
pergamino las cuatro ünicas operacio- 
nes del programa: izquierda, derecha, 
arriba y salto. 

El programa 2 dibuja el primer pitu- 


„5: DRAW DRAW S 

106 DRAW 12,2: DRAW -4, 

-12,1 

107 FLOT 30: DRAW 7 DRA 
DRAW 4,0: DRAW O, DRAW 


108 DRAW 4, c 
‚4: DRAW 4, 
2: DRAW 1,- 
107 DRAW 4,6 


110 PLOT 
111 PLOT 
14,-1 


162,26: DRAW 49,-8 
142,26: DRAW 0,2: 
DRAW -14,1 
DRAW 0,2: D 


POKE 23659, 2 

PLOT DRAW 1,16: DRA 
DRAW 4,1: DRAW 3,0 

POKE 23259,0: РОКЕ 23659,2 


145,29 


122 PLOT 


184,97: 


DRAW 2,-19: DR 
DRAW 2.0: D 


123 PLOT DRAW 2,-1: DRA 
W 0,4: DRAW DRAW 0,-4 

124 PLOT 144,97- DRAW -1,4: DRA 
W 3,0: DRAW -1,-4 

126 PLOT 160,96: DRAW -1,4: DRA 
W 3,0: DRAW -1,-4 

127 PLOT 172,96: DRAW -1,4: DRA 


Pegramas 


fo a gran tamańo (ildeal para sacar una 
copial), apareciendo después la palabra 
SMÜRF, es decir, pitufo en inglés. 
Después se carga el programa 3. 
Tercer y último programa, y no pre- 
cisamente corto, contiene el Pitufo- 
juego... ¡Para pitufar toda una tarde! Las 
restantes pantallas muestran el laberin- 
to que hay que recorrer para cargar la 
cesta con las apetitosas pitufresas, sin 
olvidar los pitufopeligros que acechan 
en cada pituforrincón. Aunque las ins- 
trucciones del programa hacen refe- 
rencia a unas pitufollamas, tampoco 
hay que olvidar los pitufocuadros mó- 


O: DRAW -1,-4 


128 PLOT 137,99: DRAW 


DRAW 


7: DRAW 5 
DRAW 20 
PLOT 46,44: DRAW 2,7: DRAW 
DRAW 7,2: DRAW 33,-7 
FLOT 0,29: DRAW 90,10 
| DRAW 54,29 
DRAW 26,26 


POKE 27659,2 
DRAW то 


"" THEN CLS 
23659,0: POKE 23659,2 
150 PRINT AT 5,10;" INSTRUCCIONE 
AT 5, В; "IZQUIERDA. 
DERECHA. . 
sanane ESPAT Ж 
151 PLOT 80. 
152 POKE 


DRAW 
POKE 


104,0 
23659, 2 


DRAW 


&,-5: DRAW 7 
154 DRAW S, 
50: DRAW 8,4 
1 
155 DRAW 3,-5: DRAW 1,-7: DRAW 
-12,0 

PLOT 40,50: DRAW 120,C 


4: DRAW 6,- 
PLOT 206,155: 
=а, DRAW 


DRAW 7,-1 
DRAW -із 


PRINT AT 2 Fulse cúalqu 


159 FAUSE О: 
сїз 
160 


IF INKEY$<>"" THEN 
PAPER 5: CLS : INK 1: PRINT 
ШЕЕ SIDE 1": RETURN 

21659,0: POKE 22659,2 


POKE 
170 PRINT 
172 POKE 
180 GO SUB 150 


23659,0: POKE 21659,2 


viles, que hacen el mismo pitufodaño. 
Llegando al final del juego, lo cual no 
resulta demasiado difícil después de un 
poco de práctica, se puede entrar en cl 
ranking de los mejores. 

Prácticamente realizado con instruc- 
ciones PLOT y DRAW, el último pro- 
grama contiene algunos caracteres grá- 
ficos definidos por el usuario, los cua- 
les han sido subrayados para una mejor 
identificación. 


Que haya mucha pitufosuerte y no 
os preocupéis: ipitufobromista no in- 
terviene! 


190 FOKE 27659,0 
200 CLS : PAPER 0 
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LOFEZ PRESENTA 
PARE LA CINTA" 


INK 7;AT 10 
зат 19,9 


204 POKE 23659,0: POKE 

206 POKE 23659,0: POKE 

210 FOR t=0 TO 254: OUT 

NEXT t 

220 FOKE 23659,0: POKE 2 2 


230 PAUSE 20: RETURN 


231 POKE 27259,0: POKE 
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1 IF INKEY$4>"1" OR INKEY 
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P a,n$9: EEP a,n8: EEP a,n9: b,n16: ВЕЕР b,n: ВЕЕ ,n?: PA 
ЕР 4,06: ВЕЕР 4,09: ВЕЕР a nia: USÉ cp: ВЕЕР b,n2: GO SUB 900: В 
OEI Ru pipe ee Ел? же ол 
na: ЕЕН Б, пв Ё 908 ВЕЕР b,ne: ВЕЕР Ь,п18: ВЕЕР 
586 BEEP b, N9: ВЕЕР b,ni8: ВЕЕР Б.п: ВЕЕР b,niB: ВЕЕР b na; BE 
RZL ВЕЕР bin: ВЕЕР b,ns: BE БР bpne: BEEP b nô: BEEP b,n?: B 
EP 6 nia: ВЕЕР b,no: BEEP b,nió: EEP 5,05: PAUSE cp: BEEP b,n0: B 
ВЕЕР b,ng: ВЕЕР 5,016: GO ŚUB 8 EEP b;na: ВЕЕР b,n$: ВЕЕР b,n6 
әд: ВЕЕР c,n5: PAUSE dp; BEEP b, PAUSE cp: RETURN 
ng: ВЕЕР b,n?: ВЕЕР b,n: GO SUB 
789: ВЕЕР ens: GO TÓ 1000 
708 BEER 25,0%; ВЕЕР b n: ВЕЕР 
„52110: BERE b Na: ВЕЕР cci n8. В 
EEEn ар нее b,n9: BEEP b,n8: Бана кте 
719 BEÉP b n2: BEEP b,n8; ВЕЕР 
b,n?: BEEP b,n&; BEEP b,na; ВЕЕР de L.Van Beethoven 
5,09; ВЕЕР рпа: BEEP b,n9. BEE 
P b,na; ВЕЕР b N9: BEEP b N9: Bi 
Ер Б.019 ВЕЕР b ngg: ВЕЕР b,n9 mHartadoswl 
720 SEED punis: ВЕЕР b,n9: ВЕЕР ог 
b;n18: ВЕЕР b na: ВЕЕР b,n18: G ^ PANT URP ET 
o sus 900: ВЕЕР b,na: ВЕЕР 5,016 PRA 
: BEEP b,n: BEEP c,n?: PAUŚĆ CP i 
BEEP b,n2: GO SUB 900: BEEP b, 


UNA «BUENA» MANO PARA SU SPECTRUM 


Una exclusiva de: 
SISTEMAS LÓGICOS GERONA, S.A. 


CADA INTERFACE, ADEMAS DE UNAS COMPLETAS 
INSTRUCCIONES EN CASTELLANO, SE SUMINISTRA 


—— EL МАЗ ECOM UM T CON UN DISCO DE UTILIDADES QUE LE PERMITIRA 
MAS DE 300 v YDEMAYOR "O FORMATEAR DISCOS, DUPLICAR PROGRAMAS Y 
UNIDADES CAPACIDAD DISCOS COMPLETOS Y PASAR AUTOMATICAMENTE 
VENDIDAS hu unidad de disco DE CASETTE A DISCO SUS PROGRAMAS 

EN ESPARA. ptas, Ет о 5010 65.850 COMERCIALES FAVORITOS. 


plea discos d, 

Que hacen del 5 ° amplisima dify. 

interface de TR m Y bajo precio, (Unas 
ico 


600 pt; 
un standart del || де poz 
software en doble densigag; 


INTERFACE DE TECHNOLOGY RESEARCH (Gobierna 4 discos) (28.500 Pts.) 
UNIDAD DE DISCO COMPLETA DE 5,25“ 40 pistas simple cara de 160 К. (49.500 Pts) 
UNIDAD DE DISCO COMPLETA DE 5,25% 80 pistas doble cara de 640 К. (65.850 Pts.) 


DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA 


Tisqaxas 
La сола, leca 


Programa especialmente pensa- 
do para los niños, con gran diversi- 
dad de caras que se formarán ante 
sus ojos, pudiendo participar con 
el teclado de una forma sencilla y 
entretenida. 

Las caras que salen son comple- 
tamente aleatorias, guardando to- 
das unos esquemas previamente 
programados. Por ejemplo, el con- 
torno de la cabeza, los ojos, las ce- 
jas, la nariz, la boca, son cosas que 
siempre salen, pero variando den- 
tro de unos límites. La boca puede 
ser sonriente o triste o de labios 
gruesos o delgados. 


10 LET REF=10: 
OKE 23658,8 

20 BORDER O: 
LS 

50 LET us-: 
un=0 

40 LET yy=20: 
=5: LET p$="LA": 


50 LET yy=70: 
О SUB 1140 


60 LET уу=120: 
GO SUB 1140 

70 BEEP .2,5: 
5: BEEP 1,12: 
1 


сіб 


2 
BO LET уу=0: 


RANDOMIZE O: P 
FAFER O: 
О: LET po=0: 
LET хѕ=5: 


GO SUB 1140 
LET p$="CARA": G 


LET p$="LOCA": 


FAUSE 5: 
ВЕЕР .5,5: 
ВЕЕР .5,14: 


LET xs=10: 


También hay cosas que pueden 
0 no salir, como son: pecas, pelo, 
un cigarro o pipa, gafas, etc., y 
cuando salen lo hacen de distinto 
tamaño o incluso posición en pan- 
talla diferente. 

La expresión utilizada más fre- 
cuentemente en el programa es: 
LET H = INT (RND * 7) 

IF H = 4 THEN... 
IF H > 4 THEN... 
donde RND 7 genera un nümero 
aleatorio entre 0.000001 y 
6.999999 y INT redondea al ente- 
ro, por lo que los números útiles 


z10: 
SUB 114 
LET ys- 


INK 5: C 


GO SUE 1140: 


LETB XTn 


90 FRINT “1; 
PAUSE 0 
e=1 TO INT REF 
a=INT 
OV=INT 
OV=0: 
Ov=1 
BORDER a: 
RIGHT RNDX1: 


LET ys A TECLA": 
100 FOR 
110 LET 
120 LET 

HEN LET 
130*UuET 


140 
OMIZE O 


xs=2: 


n=ci 
7.88,п: 


(10+RND 
ТЕР -.05: 
0,-175,N: 
0,-175,-М: 
75: 


DRAW рох2, 


BEEF .5 
PAUSE 
BEEF 1 


200 LET OJ=INT 
5 THEN GO TO 220 


LET ys 


INK 6: 
LET yy=130: 
INK 4: 


150 LET xx=200 
LET ys=2 
GO SUB 1150 
160 LET ca=INT 
Ca THEN LET ci=90: 
170 LET ci=INT 
TO .ci-2 ӨТЕР =1 
NEXT n 
180 GO TO 210 
190 LET cu=kRNDXZ. 2: 
25): 
FLOT 127-po,175: DRAW 
PLOT 127+po,175: 
NEXT Nz 
DRAW рож2, о: 


van del 0 al 6. Si la expresión hu- 
biese sido LET H = INT (5 + RND 
* 7) el niimero oscilaria entre 5 y 
11. Esto luego puede ser aplicado 
al radio de un círculo o a una posi- 
ción de pantalla, o lo que se quie- 
ra. Esto hace que las caras sean 
siempre diferentes y las que se pa- 
recen nunca son exactamente 
iguales. 

También varían el color del 
BORDE y PAPEL manteniéndose 
el color de la tinta en contraste me- 
diante INK 9, y además el BRI- 
LLO y el OVER. 

El funcionamiento del programa 
es muy sencillo. En principio están 


LET p$-STR$ REP: GO 
LET xs=2: 
LET p$="CARAS" 
FOR n=1 TO 200: NE 


FLASH 1; "PULSA UN 


(RNDX8) 
(RNDXS) : 
GO TO 140 


IF OV T 


9: B 
RAND 


FAPER a: INK 
DVER QV: CLS : 


z LET yy=175: LET 
* LET p$-STR$ e: 
(RNDX5): IF NOT 
G0 TO 190 
(70+RNDX18): FOR 
CIRCLE 12 


LET po=INT 
FOR N=CU TO CU-.1 S 


DRAW 
FLOT 127-ро,1 
PLOT 127=po,0: 


(RNDX10): IF OJ> 


^ CUN 


programadas 10 caras (que nunca 
serán las mismas al ejecutar el pro- 
grama por vez primera). Por cada 
cara que sale aparecerá una letra 
en la esquina inferior izquierda. Al 
pulsarse la tecla correspondiente 
se ejecutará otra cara. La letra o 
nümero que aparece estará un 
tiempo determinado en pantalla y 
si no se pulsa la tecla correcta apa- 
recerá otra letra o nümero. Este 
tiempo viene determinado por la 
variable us y en principio tiene un 
valor de 300, disminuyendo en 
cada cara en 25. Si se desea se pue- 
de cambiar su valor inicial si el 
niño tiene dificultades con el tecla- 


do. Por ejemplo, LET us = 1000. 

Una vez que han salido las 10 
caras el niño se enfrenta a unas le- 
tras que aparecerán en pantalla de 
distinto tamaño y color, y deberá 
proceder como en las anteriores: 
pulsar la tecla adecuada. 

Al terminar esta pantalla saldrá 
la puntuación. La máxima puede 
ser de 20, por lo que el programa 
empezará otra vez con 10 caras. Si 
los puntos hubiesen sido de 8 se 
empezaría de nuevo con 4 caras. 

Otra cosa que se incluye en el 
programa y que puede resultar in- 
teresante es una salida para impre- 
sora. Si se tiene conectada, la cara 


pasa a la impresora cuando el niño 
pulsa la tecla correcta. Estas caras, 
ya pasadas al papel, se pueden co- 
lorear o recortar o hacerse con un 
buen archivo para regalar a los 
amigos. 

Para finalizar hay que decir que 
el programa se apoya en una su- 
brutina en código máquina para 
generar caracteres gigantes. Esta 
subrutina es la misma que la que 
viene en la cinta HORIZONTES, 
cara B y se obtiene mediante 
LOAD "c" CODE. 


José C. Tomás 


210 CIRCLE 96,120,20: 


9,120,20 


220 LET PN=INT (76+RND*X10) : 
CIRCLE 127,P 


TN=INT (5+RNDX13) : 
N, TN 
230 LET O=INT 


250 
-RNDXK20): 
E 95+F0,115,3: 


5 
270 G0 SUB 


500 


-280 LET A*INT (RMNDt*4) 
IF A=0 THEN LET GR=INT 


290 


GUSANEZ gor Tsé (Temás 


¿QuE? 
¿TE GUSTAN Mis 
GRAFICS? 


(RNDX7) 

240 IF 0>4 THEN 60 SUB 650 
IF 044 THEN GO SUR 710 
260 IF 0=4 THEN LET FO-INT 
FLOT 77,119: 
: PLOT 140,119: DRAW 38,0: 
CIRCLE 159+P0,115 


CIRCLE 15 


LET 


(10 
DRAW 38,0 
CIRCL 


DX10): 
44: DRAW 24+65,-16: 


300 IF 
63: 


(RN NEXT N 


à LA COSTRA DE POLVO 
ES DEL PROGRAMA O DE 
LA PANTALLA ? 


FOR N=96 TO 100: 


A=0 THEN FOR N=159 TO 1 
FLOT М, 144: 


PLOT М, 1 
NEXT N 


DRAW -24-GR,-16: 


310 IF А=1 THEN LET CE-(RNDX3) 
: FOR N-CE TO CE-.6 STEP -.2: PL 
FLOT 14 
5,159: DRAW 32,0,-N: NEXT N 

320 IF A=2 THEN PLOT 95,144: D 
RAW -24,-16: PLOT 159,144: DRAW 
24,-16 


20 LET G-INT (RNDkó): IF Q=0 T 
HEN GO SUB 736 

340 LET A=INT (RNDX10O): IF A=5 
THEN GO SUB 770 
350 LET FE=INT (RND*5): IF FE-Z 
THEN GO SUB 890 

360 LET LO=INT (RNDX5): IF LO>2 


THEN 60 SUB 930 

570 LET LA=INT (RNDX10): 
3 THEN GO SUB 1030 

580 LET JA=INT (RND*k10): IF JA> 
=7 THEN GO SUB 1100 


IF LA= 


590 LET ST=INT (1+RNDK10): FOR 
20 TO 20 STEP ST: BEEF .09,М: 
BEEF .01,N+Z0: NEXT N 

400 IF pun<O THEN LET pun=0 
405 LET LE-INT (RND*x10) 

410 IF LE THEN LET A$=CHR$ INT 
(65+RNDX26): GO TO 450 

420 LET A$-CHR$ INT (48+RNDX10) 
430 FOR M=1 TO 4: 
yy=160: LET xs=M: 
p$=A$: GO SUB 1150: 
440 FOR n=l TO us: 
$ THEN NEXT n 

450 IF INKEY$<>a$ THEN ВЕЕР .5 
2720: LET p$=" ": GO SUB 1150: L 
ET pun-pun-i: GO TO 400 
460 FOR n=1 ТО 60 STEP 3: 
.01,n: NEXT n 
470 LET xx=1: LET yy=160: LET x 


N 


IF INKEYS$< a 


BEEP 


LET p$-" ": 60 SU 


THEN GO TO 4 


60 
490 COPY : LET us-us-28: LET pu 
п=рцп+1: NEXT e: GO TO 1160 

500 LET U-INT (80+RNDX40): LET 
Dz(127-U)*2: LET J=50: LET I=(RN 
рж2) 

S10 LET F=INT (RNDX4): IF F-O T 
HEN PLOT U.J: DRAW D,O,.I-D/S5OO: 
FLOT U,J: DRAW D,0,1+(D/500)+RN 
D 

520 IF F=1 THEN FLOT 0,0: DRAW 
D,O,-I: PLOT U,J: DRAW D,O,-I-R 
ND 

530 IF F=2 THEN 
D,0,-I: PLOT U,J: DRAW D,O,I 
540 IF F=3 THEN FLOT U,J: DRAW 
D/2,2,-I: DRAW р/2,-2,-І: PLOT 
U,J: DRAW 0,0: PLOT U,J: DRAW D, 
9,1-:58 

550 LET RR=INT (RNDX*10): 
5 THEN 60 SUB 570 

S60 RETURN 

570 LET FI=INT 
HEN GO TO 620 
580 LET CC-RNDX*1: 


FLOT U,J: DRAW 


IF RR= 


(RNDX2): IF FI T 


LET MO--2: LE 


T LA=INT (15+RNDXx65): LET GA-INT 
(RNDX10) 
580 LET CC-RNDX1: LET MO=-2: LE 
T.LA=INT (15*RNDX65): LET GA=INT 
(RNDX10) 
590 FLOT U,J: DRAW —LA,-GA,CC: 
DRAW -59: DRAW LA,GA+5,CC: PLOT 
U-LA„J-MO 


600 LET HU=INT (1+RNDX5) 
610 FOR M=1 TO HU: FOR N=1 TO R 
№10: DRAW OVER 1;-5+RNDX10,RN 


D*x15,-4+RNDX8: NEXT N: PLOT U-LA 
+M,J-M0: NEXT M: RETURN 

620 PLOT U,J: DR 10 LET REP= 
10: RANDOMIZE О: FOKE 23658,8 

20 BORDER ©: PAPER 0: INK 5: C 
Ls 

3O LET us=300: LET po=0: LET p 
un=0 


LET xs-5: LET ys 


40 LET уу=20: 
: GO SUB 1140 


=5: LET p$="LA 


SO LET yy=70: LET p$="CARA": G 
S7O»LET PI=INT (RNDX2):1F PITHE 
N 60 TO 620 


La versión española de Popular Computing 


LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 


Monroe 0C-8590 ! 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 


ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 

Ya está a la venta 
AAA Com 


Cómprela en su kiosco habitual o solicítela a: 


Bravo Murillo, 377 
= | Tl. 339662 : 
= 28020 - MADRID — 


одамо 


580 LET CC=RND*1: LET MO--2: LE 
T LA-INT (15+RNDX65): LET GA-INT 
(RNDX 10) 

590 FLOT U,J: DRAW -LA,-GA,CC: 
DRAW 3,-5: DRAW LA,GA+S,CC: PLOT 
U-LA, J-M0 

600 LET HU-INT (1+RNDK5) 


610 FOR M=1 TO HU: FOR N=1 TO R 
ND*10: DRAW OVER 1:-5+RNDX10,RN 
DX15,-4*RNDX8: NEXT N: PLOT U-LA 
NEXT M: RETURN 
PLOT U,J: DRAW -50,0: 
DRAW -10,0: DRAW O, 
‚-5: DRAW 55,5 


DRAW 


-22: LET LA=54: PLOT 
U-LA, J-MO: GO TO 600 
640 LET OJ=INT (RNDX2): IF 00-1 
THEN 60 TO 680 
650 LET X=83+INT (RNDX23): LET 
Y=107+INT (RNDX25) 


740 FOR M=74 TO 80+LO: PLOT 112 
-ВІ+ТЕ, M: DRAW ZO*-(BIX2)-(2XTE), 
o 

750 IF 30%(БІЖ2)-(2ЖТЕ)<-О THEN 

RETURN 


760 LET TE=TE+IG: NEXT M: RETUR 
770 LET GAF=INT (RNDX10O): 
F=? THEN 50 TO 820 

780 IF GAF=8 THEN 60 TD 840 
790 IF GAF=7 THEI GO TO 860 
800 LET GA=INT +RNDX6) : FOR 
TO GA: CIRCLE 96,120,М: CIR 
CLE 159,120,М: NEXT N 
810 LET AF=(RNDXZ): 


IF GA 


FOR M=116 T 


0 120: FLOT 119,М: DRAW 17.0,-АҒ 

NEXT М: RETURN 
20 LET GA=INT (2Z«-RNDX7): FOR 
TO GA: CIRCLE 96,120,N: NEX 


660 LET TOSINT (1*RNDX6): FOR N 
=1 TO TO: CIRCLE X,Y,N: CIRCLE 6 


4+X,Y,N3 NEXT N 

670 RETURN 

480 LET X=83+INT (RNDX2Z): LET 
Y=107+INT (RNDX25) 

690 CIRCLE Х,Ү,М: CIRCLE 64+X,Y 
N 

, 

700 RETURN 

710 LET TA=INT (1+RNDX5): LET X 
=INT (20*RNDX25): LET Y=107+INT 


(RNDX2ZS): CIRCLE 127+X,Y,TA: CIR 
CLE 127-X, Y, ТА 
720 RETURN 


730 LET ТЕ=О: 


): LET LO-INT 
D 


LET IG=INT (RNDAS 
(RND*X10): LET BI=I 
(RNDX 10) 


850 FOR п=110 TO О STEP —3: FLO Е 
T 75,п: NEXT n: RETURN 

840 LET бА-ІМТ (2Z«-RNDX7): FOR 
N=22 TO GA: CIRCLE 159,120,N: NE 
XTN 


850 FOR n=110 TO © STEF -Z: FLO 
T 180,n: NEXT n: RETURN 
660 FOR N о ТО 122: PLOT 75,М 
: PLOT 158.М: DRAW 43 
„О: NEXT N 
870 FOR N=4 TO З.В STEF -.05: Р 
LOT 73, DRAW О.М: PLOT 13 
DRAW 42,0, №: NEXT М 
GO TO 810 
IF CI-90 THEN RETURN 
2 FOR N=1 TO INT (5+RNDX25): 


LET FE=INT (60+RNDx45): LET CA=1 1050 OVER 1: LET RI=INT (RNDX1 
sE (70+RNDX25): FLOT FE,CA : LET FI=1 LET LAG-INT (RNDASO 


LET PE-INT (60+RNDX45): LET ): FOR N=100 TO 10+LAG STEF -20 
9) -GR, М: 
5: DRAW 


ke INT (70+RNDŁ25): PLOT РЕЗ9О, 1060 FLOT INT (80+RND 
CA DRAW -2,-RI: DRAW -5, 
920 NEXT N: RETURN 6, RI 
0 LET OV-INT (RNDX2): IF OV T 1070 FLOT INT (150+RND 
OVER 1: GO TO 950 DRAW 6,-RI: DRAW -5, 
OVER O 2 
LET LA=INT (RNDX15) 1080 LET GRsGR«5: NEXT М 
FOR N=20 TO INT (20+RNDX100 1090 OVER ( RETURN 

1100 LET TAM-INT (S+RNDX6): LET 
{75 THEN. LET cis FA=INT (10+RNDX21) 

1110 FOR N=1 TO 32: CIRCLE 127,10 
LET FE1=INT (127-po+RNDkpok sN: NEXT N 


ТЕ Gaga 


1120 FOR ТАМ TO -TAM STEF -1: 
990 FLOT РЕ1,сі+90 PLOT 127, DRAW РА,М: PLOT 127 
1000 LET FE-INT (50-RNDł100): LE $410: DRA Ay N: NEXT N 
T LO--INT (RNDX*20) 1120 RETURN 


256-8*x SXLEN p$)/2 
оё: КЕ i FOK 


1010 DRAW FE,LO-LA: PLOT FE1,ci+ 1140 LET 
DRAW —-FE.LO-LA 
a z 


Е i+l,yy: 
ys: POKE i+4,8: 
=LEN p$: FOR nei TO w: РОКЕ i+n, 
CODE p$(n): NEXT n: POKE i+w+i,2 
55: LET w-USR : RETURN 
1160 BORDER ©: PAPER О: BRIGHT 1 
: CLG 

1170 FOR m=1 TO 10: LET xx=INT ( 
RND3180): LET xs=INT (1+RNDX10): 
s: LET d$=CHR$ INT (65+ 
INK INT (2*RNDX6) 

1180 LET yy=INT (RNDX120): LET p 
) NEXT Nr OVER 0» Fr mu $=d$: GO SUB 1150 

1050 IF F=0 THEN RETURN 1190 FOR п=1 TO 100: IF INKEY$=d 
) LET GR=0 $ THEN FOR b=1 TO 60 STEP BE 


ALSI, S. A. 
COMERCIAL 4 (Gestión integrada Spectrum) Control de Stocks-Facturación-Mailing-Pedidos-Presupuestos-Albaranes 
Un solo cartucho microdrive con сараар ага: 
— 1.000 articulos condificados (control de stocks, lista de precios con aumento automático). 
— 400 direcciones (fichero, mailing, facturación, etc. 
— Facturas (pedidos, presupuestos y albaranes hasta 10 conceptos). 
Realizado totalmente en Espafia, instrucciones en castellano, facilisimo manejo. 
MM — — — — VENTA EN EL CORTE INGLES Y TIENDAS ESPECIALIZADAS 
LETRAS DE CAMBIO/SPECTRUM/MICRODRIVE 


Imprime letras de cambio mensuales, oficiales y recibos negociables. 
Su ejecución es realmente simple, imprimiendo de una sola vez hasta 1.000 letras con el trabajo de hacer una sola. 


Contiene las necesarias funciones correspondientes. 
CONTABILIDAD/SPECTRUM/MICRODRIVE 


° 2.500 asientos e Sumas y saldos  eSituación proveedores ә Regularización = Situación clientes 
e Contraasientos automáticos ө Pasivo • 225 cuentas o Activo * Cierre y apertura 
Fácil manejo. Ajustado al plan contable o contabilidad personal. 

OFERTA Interface | + Microdrive + Comercial 4 ó contabilidad .. x R 3 -- 36.000 Ptas. 


Interface | + Microdrive + Seikosha 550 + Comercial 4 o abili 96.000 Ptas. 
Spectrum + Interface Il + Microdrive + Seikosha 550 + Comercial. 1 o contabilidad ... 135.000 Ptas. 


ALSI comercial, 5. А. Antonio Lopez, 154 - Tel. 475 43 39 - 28026-MADRID 


Hoqamas 


EF .01,8: NEXT b: CLS : LET pun= 
pun*i: GO TO 1210 
1200 NEXT n: BEEF .1,-20: CLS : 


LET pun-pun-1: IF pun<0 THEN LE 
T pun=0 
1210 NEXT m 


O: LET xs-2: LET ys 
G0 SUB 1140 
LET xs=6: LET ys=ó 
GO SUB 1140 
NEXT N: CLS 
(pun/2) 
20 THEN GO TO 1270 
TO 7: LET yy=60+ (MX 
: LET ys=3: INK M: 
LET p$-"OTRA PARTIDA DE 50 SUB 
1140: NEXT M: LET yy-88: LET xs 
=10: LET ys=10: LET p$-STR$ REP: 
GO SUB 1140: PAUSE 200 


1260 LET us-REFX3 GO TO 20 
1270 OVER 1: FOR Q TO 175 STEP 
INT (1+RNDX10): PLOT N,N: DRAW 


255- (ZKN),0: DRAW O,175-(GXND: D 
RAW —255+(2ЖМ),О: DRAW 0,-175+(2 
ЖМ): NEXT N 

280 LET yy LET ys=2: LET xs 
LET p$="MUY BIEN": GO SUB 11 
407 FOR N=i- FO-300: NEXT м: GO T 
0 20 


1290 STOF 
1300 CLEAR 22255: LOAD "bi"CODE 
32256: RUN 
9999 SAVE "CARA LOCA" LINE 1500: 


SAVE "b1"CODE 32256,300: 
ән; VERIFY ӘЖЕ 


VERIFY 


ANUNCIESE 
por 


MODULOS 


MADRID 
(91) 7339662 


BARCELONA 
(93) 3014700 


-——— ÉÓáÓ— A 


Programas /Juegos/Montajes / Código Maquina 


Renta 


f listado para 
f rellenar la 
declaración 


Plottin 
gráficos 


Ventanas 
móviles 


ІР Тр el artículo «Del 48 al plus. 
El kit paso a paso» (págs. 4, 5.6, 7 
y 8 de la revista n.? 7) dicen Vds. 
que las ünicas diferencias entre el 
Spectrum y el Plus son: a) un bo- 
tón de RESET, b) una caja más 
amplia que refrigera a través de 
dos rejillas de ventilación y c) un 
nuevo teclado que incorpora 17 te- 
clas más. ¿Qué pasa con el supues- 
to aumento de memoria a 64K? 
También dicen Vds. que este kit de 
montaje lo proporcionará Inves- 
trónica, ¿cuándo será esto y tendrá 
el mismo precio que en Inglaterra 
(6.000 ptas sólo el kit y 4.000 más 
si lo montan ellos)? Porque en la 
pág. 2 de la revista ZX n.° 17 In- 
vestrónica anuncia un cambio de 
Spectrum a Plus por 12.000 ptas. 
¿es esto lo que Vds. decían que ha- 
ría Investrónica? 
Christian Klein 
Barcelona 


[E] yo se trata de un aumento de 
memoria a 64K. Sigue siendo el 
mismo Spectrum de 16K de ROM 
y 48K de RAM. Por razones de 
marketing se eligió la denomina- 
ción de 64K, que tanta confusión 
ha generado. Igualmente confuso 
parece resultar el último anuncio 
de Investrónica del paso del Spec- 
trum al Plus, que en realidad hace 
referencia al Kit del Plus que co- 
mentábamos en el número 7. 


[не realizado el montaje del lá- 

piz óptico del nümero 6 pero no 

me funciona bien. ¿Se han encon- 
trado con algün problema? 

Juan C. Pérez 

Segovia 


[s] Nos alegra tu pregunta que 
aprovechamos para hacer algunas 
matizaciones sobre dicho montaje: 

— En la lista de componentes 
aparece un condensador C, de 10 
uF, cuando en realidad debe ser de 
10 nF. 

— Todas las resistencias son de 
1⁄4. 

— La descripción del apanta- 
llamiento del circuito no fue muy 


afortunada. En la figura 4 se puede 
ver que junto a TS existe un termi- 
nal marcado con el signo de masa. 
Ayúdese también en la figura 9. 
Suelde en ese orificio un hilo y eli- 
mine la mitad del plástico aislante 
del extremo opuesto al de la solda- 
dura. Envuelva a continuación el 
circuito con plástico o papel y lue- 
go con papel de aluminio, pero de- 
jando salir el mencionado conduc- 
tor. Enrolle al papel de aluminio, 
con el doble objeto de proporcionar 
un buen contacto eléctrico y rigi- 
dez mecánica. 

La localización del fotodiodo 
puede resultar dificil. Sin embargo, 
cualquier fotodiodo que funcione 
en el espectro del visible es válido. 
Un sustituto bastante conocido es 
el BPW66. 


Ele pasado dia 2 adquiri interfa- 
ce “INDESCOMP-Centronics- 
RS-232" una impresora 
GP-550 A de "SEIKOSHA". 
Cuando conecté los dos periféricos 
a mi "Spectrum 48K" me percaté 
de que no podía hacer “соруѕ” de 
pantalla porque segün explicáis en 
la revista nümero 2 de octubre, 
pág. 44, se necesita para ello un 
programa adicional que distribuye 
la empresa “DIRAC”. Pues refe- 
rente a esto ültimo son mis pre- 
guntas que, abusando de vuestra 
amabilidad, espero me contestéis. 

a) Cuando tenga el programa 
de "copy" y lo cargue en el orde- 
nador, ¿podré cargar otro progra- 
ma distinto y trabajar con él? 

b) Cuando el programa “сору” 
esté cargado, ¿qué debo hacer para 
que todo lo que esté en pantalla 
salga copiado exactamente igual 
en la impresora? 

c) Puesto que el cuadernillo de 
instrucciones del interface senala 
que los “copys” que pudieran estar 
en cualquier programa se deberán 
sustituir por los correspondientes 
"RANDOMIZE USR 65044 o 
650470”, ¿cómo podría realizar tal 
operación, ya que poseo los pro- 
gramas “VU-3D” y “PAINT- 
BOX” y por mucho que he inten- 
tado hacerlo todavía no he conse- 


guido ni un solo copiado de panta- 
Ila. 

d) 4Tiene mi impresora capa- 
cidad gráfica suficiente para copiar 
cualquier clase de dibujo o gráfico 
que salga por pantalla aunque sean 
de alta resolución como los que 
aparecen en el programa “DE- 
MO" del “PAINTBOX”? 

Perdonad la extensión de mi 
carta, pero he decidido dirigirme a 
vosotros porque creo que si hay al- 
guien que pueda resolverme los in- 
terrogantes que planteo con serie- 
dad, concisión y profesionalidad es 
vuestra revista. 

Juan Navarro Posadas 
Córdoba 


BR] Muchisimas gracias. Ponemos 
tu pregunta en manos del Servicio 
Técnico de Dirac: 

aj "El programa de copy que 
nosotros comercializamos, es para 
realizar el volcado de pantalla del 
Spectrum a la impresora corres- 
pondiente, mediante el interface de 
Indescomp por conexión paralelo 
Centronics. El programa reside en 
las posiciones de memoria 64348 
al final de memoria fisica. Utiliza 
la misma memoria que el interface 
de Indescomp por lo que no podrá 
funcionar con programas que utili- 
cen código de máquina en esas di- 
recciones. 

b) Llamaremos al programa 
de copy simple por RANDOMIZE 
USR 65044 y al doble RANDO- 
MIZE USR 65047. 

c) Elprograma "PAINTBOX" 
y "VU-3D" permiten guardar las 
pantallas realizadas como fichero, 
por lo que se pueden cargar poste- 
riormente como screen Š, para vol- 
carlas a impresora. 

d) Sí, perfectamente se pueden 
realizar en tamaño reducido y am- 
pliado. 

Disponemos de un interface con 
ROM externa intercambiable lla- 
mado MASTERFASE 4, que no 
ocupa memoria RAM y que reali- 
za el COPY mediante los coman- 
dos COPY 1 y COPY 2." 


[Р] сото respuesta a la pregunta 
que os hacía Miguel Angel de 


Oviedo en el nümero de marzo re- 
ferente a poder copiar la pantalla 
en la impresora os envío un pro- 
grama que realiza esta labor. 

Mi impresora es una CPA 80 y 
supongo que las instrucciones de 
control de impresión son iguales 
para todas. De no ser así baterías 
con cambiar las líneas 9026 = espa- 
cio entre líneas; que ha de ser de 8 
puntos (o 8 bits, es decir, un byte 
en vertical), 9027 = número de by- 
tes a mandar por línea; que tienen 
que ser 512 por línea, 9315 = salto 
a la siguiente línea, por las corres- 


T "'SCREENS 


CHRE 8 
CHRS OiCHRE 2; 


[к] курс tivamente, la copia corres- 
ponde al Match Point, que anali- 


IMPRESION DE LA PANTALLA 


By 
pondientes instrucciones de cada 
impresora. 


zaremos próximamente en la sec- 
ción de juegos 


[P]Hace más de dos meses les soli- 
cité una copia en cassette del pro- 
grama de evaluación escolar. Toda 
vez que no tengo noticias, les rue- 
go contestación por si no he proce- 
dido a su petición en la forma ade- 
cuada. 
Joaquín Rodríguez 
Toledo 


[R |Su petición era "correctisima". 
La demora ha sido motivada por 
problemas de fabricación. Confia- 
mos en que todos puedan recibirla 
en este mes 


P |Quisiera saber si existe alguna 
otra foma de acceder a los progra- 
mas contenidos en la cinta de 


Spectrum Computing que ustedes 

distribuyen. De no ser así, si a par- 

tir de ahora continuaran publican- 

do programas en que sea necesaria 
la desconexión del interface. 

Jordi Millán 

Barcelona 


R | Efectivamente, diversos progra- 
mas requieren de la desconexión 
del interface por utilizar rutinas en 
código máquina posicionados en 
la zona de memoria uiilizada por 
aquél. El utilizar estas direcciones 
de memoria no es un capricho; se 
trata de utilizar al máximo la c 
pacidad del ordenader y de sacar 
«bytes» de todos los sitios posibles. 
En cualquier caso, siempre se pue- 
de desconectar el interface. 


- Vendo Casio FX-802P con impreso- 
ra incorporada e interface FA/3, to- 
talmente nuevos, por 25.000 ptas. In- 
teresados (sólo Madrid), llamar a 
Amador Merchán. Tlf. 4674814. 


POR NECESIDAD DE COMPRAR 
UNA IMPRESORA, VENDO PRO- 
GRAMAS PARA SPECTRUM 16/48 K. 
XAVIER LAMIQUIZ. TLF. (954) 


180849. SEVILLA. IAI 


Vend. 


040 Pldeojwegos Philips, mode. 


completo, junto con 2 


La TI Programmer И de Texas 
Instrument es, como sugiere su 
nombre, una calculadora diseñada 
especificamente para programado- 
res y estudiantes de informática en 
general, que necesiten una herra- 
mienta de trabajo rápida y fácil de 
manejar para realizar diferentes 
operaciones y cálculos tanto en 
base 10 (decimal), base 16 (hexa- 
decimal) y base 8 (octal). 

La TI Programmer II se caracte- 
riza por ser una máquina cómoda 
y de diseño sencillo, plana y de co- 
lor gris metálico. Tiene 40 teclas 
en tres colores diferentes entre los 
que destacan (además de las opera- 
ciones aritméticas usuales [+, -, x, 
Л. teclas de números del 1 al 9 y 6 
teclas para las cifras hexadecima- 


IR 


les de la A ala F), las teclas de con- 
versión de una base a otra (DEC, 
HEX, OCT); teclas de funciones 
especificas como son: la tecla K 
(que permite almacenar el nümero 
y su operación asociada), la tecla 
STO (almacena de forma relativa 
los resultados obtenidos) la tecla 
RCL (restituye la información al- 
macenada en la memoria, SUM 
(acumula los resultados de las ope- 
raciones realizadas). y otras espe 
ficas para utilizar en base Hexade- 
cimal y Octal como AND (Y lógi- 
co), OR (O lógico), XOR (O exclu- 


DO ТЕЕ II 
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sivo), l'sC (permite la comple- 
mentación a uno), etc., que pueden 
ser aplicadas a una serie de funcio- 
nes aritméticas y lógicas como son: 
la realización de operaciones arit- 
méticas en las tres bases; comple- 
mentación a dos en base octal y 
hexadecimal; trabajar con coma 
flotante en las operaciones aritmé- 
ticas en base decimal; conversión 
de nümeros enteros de una base a 
otra: 15 niveles de operaciones con 
paréntesis disponibles; memoria 
constante e independiente con ca- 
pacidad para acumular el resulta- 
do; funciones lógicas que permiten 
efectuar las operaciones lógicas bit 
a bit en hexadecimal y octal; capa- 
cidad de trabajar con las operacio- 
nes lógicas o aritméticas en modo 
constante y, por último. puede 
cortar automáticamente la alimen- 
tación de la calculadora después de 
pasados 20 minutos de no ser utili- 
zada. 

Estas características hace de éste 
modelo de Texas, una herramienta 
potente y eficaz (su consumo no es 
excesivo a pesar de estar conectada 
permanentemente) para solucio- 
nar los problemas más usuales que 
se le presentan al programador o 
estudiante cuando está trabajando. 
aunque en ciertos aspectos, la má- 
quina pueda estar limitada en de- 
terminadas funciones y 
des como son la realización de 
operaciones y cálculos más com- 
plejos nversión efectiva al si 
tema binario. Precio 14.990 ptas. 


KE FAA 


Ensamblador/Desensamblador para Spectrum 
Conozca Extremadura... consulte a su ordenador. 

OL Magazine: Ajedrez de Psion, Novedades Informat... 
Programas: Juego de aventuras. 
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ilmaginate! Cinco utilisimos 


componentes integrados en 
una sola unidad compacta que 
Se conecta a tu Spectrum en 
unos segundos. Sin cableados 
engorrosos. Potente y eficaz. 
Eso es WAFADRIVE, elegido 
periférico del año en el Reino 
Unido y fabricado por Rotro- 
nics. * 


Interface con el Spectrum, 
interface serie RS/232 (con ve- 
locidad de transmisión selec- 
cionable por software), interfa- 

. ce paralelo Centronics y dos 
drives de 128 K cada uno que 


utilizan cartuchos de 16, 64 o 
128 K disenados para propor- 
cionar una alta velocidad de 
transferencia de datos (2 K por 
segundo) y la máxima fiabili- 
dad. 


Dale a tu Spectrum la poten- 
cia y la versatilidad de un sis- 
lema auténticamente profesio- 
nal. Y aprovéchate de nuestra 
Oferta Especial de lanzamien- 
to en la que, para que conozcas 
uno de los muchos programas 
ya disponibles para el WAFA- 
DRIVE, incluímos el Spectral 
Writer (un excelente Procesa- 
dor de Textos). Y un cartucho 
virgen. Y manuales en castella- 
no, claro. 


Todo por [48.500 Plas. | ep 


tu tienda de Informática o di- 
rectamente en MICROBYTE 


* También fabricante de los modula: | 


dores ASTEC 
EPR ROC УР 1 
Si, quero aprovecharme de su Oferta Especial de | 
| lanzamiento. Envienme un WAFADRIVE, el Proce. 


sador de Textos Spectral Writer y un cartucho vir- | 
| зеп. todo por 48 500 — Ptas. 


Nombre. I 


Dirección I 
| población Código Postal | 


| авто 


| incluyo Tatón Nominativo [J 
Contra Reembolso о 


| MICROBYTE, р. castettana 179 1° 


28046-Madrid 


U 
1 
l 
l 
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| Pedidos por teléfono: 


SOMOS PROFESIONALES 
E 


Por encima de todo. 
Porque al comprar tu 
ordenador personal en 
cualquiera de las "boutiques 
informáticas" de SINCLAIR 
STORE, toda una 
organización profesional se 
pone a lu servicio para 
ayudarte y asesorarte en todo 
aquello que puedas necesitar. | 
Personalmente, o por correo, | 
cuéntanos tu duda o 
problema. 


+ 1 interface 
para el joystick 


Por pequeña o grande 
que sea, nuestro equipo 


metet. técnico te dará la solución 
más idónea para tu caso. 
Por encima de todo, SOMOS 
+ TARJETA PROFESIONALES. 
CLUB SINCLAIR STORE 
(10% descuento en todas 
tus compras sucesivas). 


También al comprar 
tu Spectrum 48K 

te obsequiamos con: 
en IRE 

al BASIC + 1 libro 

DEL SPECTRUM 
(1 semana) 


+ curso de 1 semana 

+ 10 programas n.° 1 

- Tarjeta CLUB SINCLAIR STORE 
(10% dto.) 

157 Descuénto en Software. 

Tenemos los mejores precios del mercado. 
COMPRUEBELO PERSONALMENTE 


=== == 


SOMOS PROFESIONALES 


BRAVO MURILLO, 2 (ара. gratuito en C/. Magallanes, 1). Tel: 446 62 31 
DIEGO DE LEON, 25 (aparc. gratuito en C/. Nünez de Balboa, 114). Tel: 261 88 01 MADRID 


+ (ESTUCHE SINCLAIR DE 6 cinlas 
+ BEACH-HEAD + ATIC-ATAC 
+ PYJAMARAMA + AVALON) 


